Private Sub Form_Load()
 
Dim db As DAO.Database
Dim rsTapi As DAO.Recordset
Dim strSql As String
 
    strSql = "SELECT * FROM tbl_Tapi"
    Set db = CurrentDb()
    Set rsTapi = db.OpenRecordset(strSql)
 
    If rsTapi.NoMatch Then
        MsgBox "NoMatch"
    Else
        Do Until rsTapi.EOF
            roListBoxTapi.AddItem , rsTapi!TapiNr & vbTab & _
              roListBoxTapi.AddItem, rsTapi!TapiArt
        rsTapi.MoveNext
        Loop
    End If
    rsTapi.Close
    Set rsTapi = Nothing
    db.Close
End Sub