[sv25b858]

sub text()
   On Error Resume Next
       DataAdapter3 = New OleDbDataAdapter("Select * From invohd Where invon like'" & Trim$(TextBox1.Text) & "'", Con)
       dataset3.Clear()
       DataAdapter3.Fill(dataset3, "invohd")
       ComboBox3.DataBindings.Add("Text", dataset3, "invohd.carid")
end sub
اخى العزيز وبعد زالك فى خانه load تكتب
call text()

أنا كنت عاملها بالطريقة دي

كود :

If ComboBox1.Text = "1" Then
            If MsgBox("سوف يتم حفظ البيانات في السطر رقم 1", MsgBoxStyle.OkCancel, "حفظ البيانات") = MsgBoxResult.Ok Then
                My.Settings.WS1 = WebSiteToSave.Text
                My.Settings.Save()
                WSTextBox1.Text = My.Settings.WS1
                My.Settings.Save()
                WebSiteToSave.Clear()
                WebSiteToSave.Select()
            ElseIf MsgBoxResult.Cancel Then
            End If
        End If

فا انا اضع ايه بدل هذه الاسطر

كود :

My.Settings.WS1 = WebSiteToSave.Text
                My.Settings.Save()
                WSTextBox1.Text = My.Settings.WS1
                My.Settings.Save()