Dim Strsql as String = "Select * From Customer Where ='"& Textbox1.Text &"'"
Dim ds as new dataset
Dim da as SqlDataAdapter = New SqlDataAdapter(Strsql,connectionstring)
da.Fill(ds,"Customer")
For Each row as Datarow in ds.Tables("Customer").rows
Textbox1.Text = row("Id_cus").Tostring
Textbox2.Text = row("Company_name_cus").Tostring
Textbox3.Text = row("Name_cus").Tostring
Textbox4.Text = row("Address_cus").Tostring
Textbox5.Text = row("Tel_cus").Tostring
Textbox6.Text = row("Fax_cus").Tostring
Textbox7.Text = row("Email_cus").Tostring
Textbox8.Text = row("Taxnumber_cus").Tostring
Next