[asemshahen5]

أو جرب هذا :

كود :

Dim StrValue As String = DataGridView1.CurrentRow.Cells("CUSTOMERDETAILS_CODE").Value.ToString
       Dim cmd As OleDbCommand = New OleDbCommand("SELECT * FROM CUSTOMERDETAILS_TB WHERE CUSTOMERDETAILS_CODE=Yes and CUSTOMERDETAILS_CODE='" & StrValue & "'", con)
       con.Open()
       DataAdapterm = New OleDbDataAdapter(cmd)
       DataSetupdat.Clear()
       DataAdapterm.Fill(DataSetupdat, "CUSTOMERDETAILS_TB")
       If DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows.Count > 0 Then
           TextBox1.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(0)("CUSTOMERDETALIS_ID").ToString
           TextBox2.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(0)("CUSTOMERDETAILS_CODE").ToString
           TextBox3.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(0)("CUSTOMERDETALIS_NAME").ToString
           TextBox4.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(0)("CUSTOMERDETALIS_COMPANY").ToString
           TextBox5.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(0)("CUSTOMERDETALIS_TELEPHON").ToString
           TextBox6.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(0)("CUSTOMERDETALIS_NOTE").ToString
           TextBox7.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(0)("CUSTOMERDETALIS_DATE").ToString
           TextBox8.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(0)("CUSTOMERDETALIS_CREDIT").ToString
           TextBox9.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(0)("CUSTOMERDETALIS_DEBIT").ToString
           TextBox10.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(0)("CUSTOMERDETALIS_BLANCE").ToString
       Else
           MsgBox("data not found") : Exit Sub
       End If