Dim con As OleDbConnection
        Dim sql As String
        Dim Str As New OleDbConnection("Provider=Microsoft.Jet.oledb.4.0;Data" & _
          "Source=Q:\pctemp\MartDani\Ressourcen.mdb")
        con = New OleDbConnection
        sql = "select * from Ressourcen where Username=’" & Benutzername & "‘"
        Dim cmd As OleDbCommand
        Dim r As OleDbDataReader
        Try
            con = Str
            cmd = New OleDbCommand(sql, con)
            con.Open()
            r = cmd.ExecuteReader()
            If r.Read Then
                lblEisen.Text = r("Eisen")
                lblMetall.Text = r("Metall")
                lblStahl.Text = r("Stahl")
            Else
                MessageBox.Show("No Information  found")
            End If
            con.Close()
        Catch ex As OleDbException
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Oledb Error")
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "General Error")
        End Try