Datenbankabfrage DAO 3.51

[Doomguard]

Dim dbNetzwerkdaten As Database

Dim rsRecordset As Recordset

Dim strSQL As String

Dim xy As String

xy = "online"

Set dbNetzwerkdaten = OpenDatabase("\\ws3411\Database\Server_und_Netzwerkkomponenten.mdb")

strSQL = "SELECT * From tbl_Status WHERE tbl_Status.Status like " & "'" & xy & "'"

Set rsRecordset = dbNetzwerkdaten.OpenRecordset(strSQL, dbOpenSnapshot)

Beim Ausführen der Anwendung bekomme ich in der letzten zeile immer einen Type mismatch.

Warum?

mfG

Doomguard :confused: