i have 4 combo box from my vb6 form, supplier, destination, material, transport. i would like my form to connect to my access database and display the list through the combo boxes from my table. here is my code below.
Private Sub Form_Load() Dim deTRATES As Database Dim rsSUP As Recordset DoEvents Dim SATTRIB As String Dim SDRIVER As String SATTRIB = "DBQ=H:\CHARGEODBC\TRATES.MDB" SDRIVER = "MICROSOFT ACCESS DRIVER (*.MDB)" DBEngine.RegisterDatabase "TRATES", SDRIVER, True, SATTRIB DoEvents With deTRATES If Not .rsSUP.State = adStateOpen Then 'HERE I HAVE ERROR "METHOD OR DATA MEMEBER NOT FOUND" .rsSUP.Open End If End With End Sub Private Sub Supplier_GotFocus() Me.Supplier.Clear With TRATES.Supplier .Sort = "SUPPLIER" .MoveFirst While Not .EOF Me.Supplier.AddItem !Supplier .MoveNext Wend End With DoEvents End Sub
Admin Edit: Please use code tags when posting your code. Code tags are used like so =>

Thanks,
PsychoCoder
