Dim con As OleDbConnection
Dim sql As String
Dim Str As New OleDbConnection("Provider=Microsoft.Jet.oledb.4.0;Data" & _
  "Source=Q:\pctemp\MartDani\Planeten.mdb")
Dim cmd As OleDbCommand
Dim r As OleDbDataReader
 
 
con = New OleDbConnection
sql = "select * from Planeten where Besitzer=’" & Benutzername & "‘"
con = Str
cmd = New OleDbCommand(Sql, con)
con.Open()
r = cmd.ExecuteReader()
If r.Read Then
   Erde = r("Besitzer")
   .
   .
   .

r = cmd.ExecuteReader()