Code:
Private Sub Form_Load()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Set conn = DBEngine.OpenDatabase(App.Path & "baza.mdb")
Set rs = conn.OpenRecordset("KUPCI")
If rs.RecordCount > 0 Then
Do While Not rs.EOF
With Combo1
.AddItem rs.Fields("Drzava")
End With
.MoveNext
Loop
End If
End Sub
Private Sub Form_Load()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Set conn = DBEngine.OpenDatabase(App.Path & "baza.mdb")
Set rs = conn.OpenRecordset("KUPCI")
If rs.RecordCount > 0 Then
Do While Not rs.EOF
With Combo1
.AddItem rs.Fields("Drzava")
End With
.MoveNext
Loop
End If
End Sub
Izbacuje gresku kod .MoveNext dela
Invalid or unqualified reference