การค้นหาครับ ค้นหาเจอแสดงข้อมูลได้ถูกต้อง แต่ถ้า binding จะเออเรอ index ครับ

'ส่วนการค้นหา
Private Sub SearchButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SearchButton.Click

        UseConnectDatabase()
        Dim sql As String = "select * from alcohol where  al_no like '%" & SearchTextBox.Text & "%' order by al_id asc"
        Dim cmd As New MySqlCommand(sql, MyConnect)
        adapter = New MySqlDataAdapter(cmd)
        If Not (data.Tables("alcohol") Is Nothing) Then
            data.Tables("alcohol").Clear()
        End If
        adapter.Fill(data, "alcohol")
        AlcoholDataGridView.DataSource = data.Tables("alcohol")  'แสดงข้อมุลจากการค้นหา
        ' ClearBindings() 
        'Bindings() พอเรียกใช้ตรงนี้เออเรอที่ index  
        DisconnectDatabase()
    End Sub

'คลิก datagrid
Private Sub AlcoholDataGridView_CellMouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles AlcoholDataGridView.CellMouseUp

         aliddel= Me.AlcoholDataGridView(0, Me.AlcoholDataGridView.CurrentCell.RowIndex).Value.ToString() 'ดึงค่า al_no จาการคลิก
        index = Me.AlcoholDataGridView(0, Me.AlcoholDataGridView.CurrentCell.RowIndex).RowIndex.ToString() 'ดึงค่า index  al_no จาการ
        Me.BindingContext(data, "alcohol").Position = index ' 
  End Sub

 Private Sub Bindings() 'แสดงข้อมูลเมื่อคลิก datagrid
       al_noTextBox.DataBindings.Add("Text", data, "alcohol.al_no")
       al_instituteTextBox.DataBindings.Add("Text", data, "alcohol.al_institute")
       al_analynumberTextBox.DataBindings.Add("Text", data, "alcohol.al_analynumber")
       al_booknumberTextBox.DataBindings.Add("Text", data, "alcohol.al_booknumber")
       al_tubeTextBox.DataBindings.Add("Text", data, "alcohol.al_tube")
       al_mgTextBox.DataBindings.Add("Text", data, "alcohol.al_mg")
       Me.BindingContext(data, "alcohol").Position = 0 'เออเรอตรงนี้ครับ

   End Sub