Code:

'//===================================================
'konektovanje baze
'//===================================================
    Public Sub openconn()
    conn.Provider = "Microsoft Jet 4.0 OLE DB Provider;Data Source=C:\baza_program.mdb;"
    conn.Open
    End Sub
    
'//===================================================
'diskonektovanje baze
'//===================================================
    Public Sub closeconn()
    conn.Close
    End Sub

Code:

'//===================================================
'otvarannje forme
'//===================================================

Private Sub Form_Load()
popuni_listview2
End Sub

Code:

'//===================================================
'popunjavanjelistview-a 2
'//===================================================
Sub popuni_listview2()
Dim SQL As String

    openconn '/// otvara klonekciju i pronazalazi bazu i tablicu koju definisemo ovde ispod
     SQL = "SELECT DISTINCT broj_fakture,redni_broj FROM baza_faktura ORDER BY redni_broj DESC;" '//// ovo je putanja gde se i sta otvoriti u bazi . tablici . po columnu

    Set rs = conn.Execute(SQL)
If rs.EOF Then '///// If petlja sluzi da proveri da li je zadatak ispunjen pa ako nije prijavi gresku ovde ispod...
MsgBox "U bazi faktura nema podataka!", vbExclamation, "Access"'/// greska
closeconn'//// zatvaranje konekcije
Exit Sub
End If
    ListView2.ListItems.Clear '/// brise*cisti sve sto se nalazi na listview-u
    Do Until rs.EOF
    ListView2.ListItems.Add 1, , rs("redni_broj")'//// i ovde sada listview puni sa pdoacima iz baze po columnima
    ListView2.ListItems(1).SubItems(1) = rs("broj_fakture")
rs.MoveNext
Loop
closeconn
    ListView2.ListItems(1).Selected = True
End Sub

Code:

'SQL Kod:
SQL = "SELECT DISTINCT broj_fakture,redni_broj FROM baza_faktura ORDER BY redni_broj DESC;"

'Izvrsavanje komandi
Set rs = conn.Execute(SQL)

Code:

Option Explicit

Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public rs1 As New ADODB.Recordset
Public rs2 As New ADODB.Recordset
Public mSQL As String
Public mSQL1 As String
Public mSQL2 As String

Sub mSQL_conn ()
    Dim AdoDatabasePath As String
    Dim AdoPassword As String
    
    AdoDatabasePath = "tvoja_putanja_do_baze"
    AdoPassword = "tvoja_sifra_za_bazu"
    If konekcija.State = 1 Then konekcija.Close
    konekcija.Open "Provider=Microsoft.Jet.OLEDB.4.0;Password='';" & _
    "User ID=Admin;Data Source=" & AdoDatabasePath & ";" & _
    "Jet OLEDB:Database Password='" & AdoPassword & "'"
End Sub

Function mBaza_pregled(mSQL)
Set rs = New ADODB.Recordset
        rs.ActiveConnection = konekcija
        rs.CursorLocation = adUseClient
        rs.CursorType = adOpenDynamic
        rs.LockType = adLockOptimistic
        rs.Source = mSQL
        rs.Open
End Function
Function mBaza_pregled1(mSQL1)
Set rs1 = New ADODB.Recordset
        rs1.ActiveConnection = konekcija
        rs1.CursorLocation = adUseClient
        rs1.CursorType = adOpenDynamic
        rs1.LockType = adLockOptimistic
        rs1.Source = mSQL1
        rs1.Open
End Function

''// ... i dalje za rs2, rs3...

Code:

Dim trazi_vozilo As String, sifra As String, i As Integer, t As Integer


trazi_nalog = txtReg_br.Text & "%"   ''// trazi_vozilo ti je promenljiva koja odgovara vrednostima iz txt boksa sa desne strane znaka jednakosti... % je znak iz 'SQL sintakse i znači da će prikazivati sve podatke kojima su početna slova ona koja unosiš u taj txt boks

Call mSQL_conn   ''// ovde pozivaš konekciju na bazu iz gore navedenog modula
mSQL = "Select * from tbl_vozilo where vzlID like '" & trazi_nalog & "'order by vzlID"   ''// ovo ti je SQL upit i po tim kriterijumima pretražuješ bazu
Call mBaza_pregled(mSQL)  ''// ovde pozivaš f-ju iz modula a kao vrednost mSQL promenljive uzimaš ovaj gornji string (mSQL= ............)

If mPostojeciNal(trazi_nalog) = False Then     ''// Funkcija koja proverava da li postoji podatak u bazi (kôd ti je dole ispod)
    MsgBox "Nalog broj " & trazi_nalog & " nije registrovan u bazi! Proverite broj naloga.", 48, "O B A V E S T E NJ E!"
    txtReg_br.SetFocus 
Else:    
Me.fgVozilo.Clear  ''// ovde čistiš FlexGrid (on se kod mene zove fgVozilo... ti ga nazovi kako hoćeš  :)
    fgVozilo.Rows = 0
   
    fgVozilo.ColWidth(0) = 1000  ''// ovde mu definišeš broj kolona i njihovu širinu
    fgVozilo.ColWidth(1) = 1000  ''// ja sam ih definisao šest
    fgVozilo.ColWidth(2) = 1000
    fgVozilo.ColWidth(3) = 1000
    fgVozilo.ColWidth(4) = 1000
    fgVozilo.ColWidth(5) = 1000
    
On Error GoTo greska   ''// usled greške, prebacuje ti se na predposlednju liniju kôda i prikazuje ti MsgBox sa opisom greške koja ti se pojavila
    For i = 1 To rs.RecordCount
        t = Chr(9)    ''//  Chr(9) ti je tab vrednost tj, nakon svake unesene vrednosti prelaziš u sl polje
        sifra = rs("vzlID")  ''// rs("vzlID") vzlID ti je kolona u bazi i td.
        fgVozilo.AddItem sifra + t + rs("model_voz") + t + rs("vrsta_voz") + t + rs("tezina_voz") + t + rs("nosivost_voz")  ''// ovde definišeš gde u FlexGrid-u 
''// ubacuješ vrednosti kojih polja
        rs.MoveNext
    Next i
End If

    Exit Sub
    
greska: MsgBox ("Greska broj " & Err.Number & vbCrLf & Err.Description), 48
End Sub

Code:

Private Function mPostojeciNal(trazi_nalog As String) As Boolean   ''// ova funkcija ti proverava postojanje zapisa po određenom kriterijumu
                                                                                       ''// i izbegava pojavu greške u programu
Call mSQL_conn
mSQL = "SELECT * FROM tbl_vozilo  WHERE vzlID LIKE '" & trazi_nalog & "'"
Call mBaza_pregled(mSQL)
    
    If rs.EOF = True Then   ''// ovaj deo kôda proverava da li postoji zapis u bazi... ako ne postoji onda odrađuje naredne tri linije kôda
        rs.Close
        Set rs = Nothing
        Exit Function
    End If
    
    If trazi_nalog = rs("vzlID") Then
        mPostojeciNal = True    ''// True - postoji zapis u bazi
    Else
        mPostojeciNal = False   ''// False - ne postoji zapis u bazi
    End If
    
End Function

Code:

Sub mSQL_conn ()
    Dim AdoDatabasePath As String
    Dim AdoPassword As String
    
    AdoDatabasePath = "tvoja_putanja_do_baze"
    AdoPassword = "tvoja_sifra_za_bazu"
    If konekcija.State = 1 Then konekcija.Close
    konekcija.Open "Provider=Microsoft.Jet.OLEDB.4.0;Password='';" & _
    "User ID=Admin;Data Source=" & AdoDatabasePath & ";" & _
    "Jet OLEDB:Database Password='" & AdoPassword & "'"
End Sub

Code:

Sub mSQL_conn()
Set conn = New ADODB.Connection

conn.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver};" & "SERVER=127.0.0.1;" _
   & "DATABASE=ime_tvoje_baze;" _
   & "UID=root;" _
   & "PWD=tvoja_sifra; OPTION=3;"

conn.Open
End Sub