Private Function GetEntry(ByVal ID As String)
Dim SQL As String
Dim DB As Database
Dim RS As Recordset
 
SQL = "SELECT * FROM TABELLE WHERE Nummer='" & ID & "'"
Set Rs = Db.OpenRecordset(SQL)
MsgBox Rs.Fields(0)
Rs.Close
End Function

Private Sub cmdOk_Click()
GetEntry List.Tag 'Je nachdem wo Du Deine Nummer speicherst
End Sub