Dim dr As DataReader
Dim cmd As Command
Dim cn as Connection
 
cn.Open
cmd.CommandText = "SELECT * FROM Benutzer WHERE Benutzername="Test"
cmd.Connection = cn
dr = cmd.ExecuteReader
If dr.Read <> Nothing Then
   Variable = dr.Item(0).ToString
End If