Public Function LookAtTable(ID_Suche As Long) As Long
    ' Öffnet eine Tabelle zum Suchen von Daten
    ' Suchchlüsselfeld wird über Variable gepflegt
    Dim rst As ADODB.Recordset
    Dim strSQL  As String
    Dim strTableName As String
    Dim strFieldSearchKey As String
 
    Set rst = New ADODB.Recordset
 
    strTableName = "abc"  ' Tabellenname
    strFieldSearchKey = "ID_Suche"   ' Feld für die Suche
    strSQL = "Select ID_Status from " & strTableName & " where " & _
      strFieldSearchKey & " = " & ID_Suche
 
    Call rst.Open(strSQL, GetConn(), adOpenDynamic, adLockReadOnly)
 
    If Not rst.EOF Then
        LookAtTable = rst!ID_Status
    Else
        LookAtTable = 0
    End If
    Set rst = Nothing
 
End Function