con = New OleDbConnection
sql = "select * from Ressourcen where Username='" & Benutzername & "'"
con = Str
cmd = New OleDbCommand(sql, con)
con.Open()
r = cmd.ExecuteReader()
lblEisen.Text = r("Eisen") 'genau an dieser stelle gibt er mir den Fehler