cmd.CommandText = "SELECT ... FROM tabelle WHERE markiertes Feld"
        dr = cmd.ExecuteReader
        Dim a As String
        If dr.Read = True Then
            a = dr.Item("TourNr")
        End If
        dr.Close()
 
If a= " " Then
.....
 
Else: messagebox.show("Text")
End IF