[احمد عبد الحكيم]

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()