Public Function DB_GetLastID(sMdbFileName As String, sTable As String, sID_Name _
  As String) As Long
 
'Datenbankvariablen
    Dim Db As Database
    Dim rs As Recordset
    Dim sSQL As String
 
 
    On Error GoTo Err_DB_GetLastID
    sSQL = "SELECT " & sID_Name & " From " & sTable & " ORDER BY " & sID_Name & _
      " DESC;"
       'setzen der Datenbank
        Set Db = Workspaces(0).OpenDatabase(sMdbFileName, False, False)
        Set rs = Db.OpenRecordset(sSQL, dbOpenDynaset)
 
        If rs.RecordCount = 0 Then
        DB_GetLastID = 0
        Else
        rs.MoveFirst
        DB_GetLastID = rs!sID_Name
End If
 
Exit_DB_GetLastID:
 
    On Error Resume Next
    'Datenbank schließen
    rs.Close
    Db.Close
    Set rs = Nothing
    Set Db = Nothing
 
    On Error GoTo 0
 
    Exit Function
 
Err_DB_GetLastID:
 
    DB_GetLastID = 0
    ShowErr "DB_GetLastID"
    GoTo Exit_DB_GetLastID
 
End Function

Visual Basic 6.0 Grundkenntnisse und ansonsten alles rund um AutoCAD