Dim tmpUserName As String = My.User.Name
        Dim username As String, id As String
 
        username = Microsoft.VisualBasic.Right(tmpUserName, Len(tmpUserName) - _
          InStrRev(tmpUserName, "\"))
 
        con.ConnectionString = strCon
 
        con.Open()
        CMD = New OleDbCommand("SELECT * FROM tblUserinfos WHERE username='" & _
          username.ToString & "' ORDER BY id ASC", con)
 
        dr = CMD.ExecuteReader
 
        dr.Read()
 
        'Hier würder der Fehler auftreten, wenn der eintrag nicht in der DB 
        ' vorhanden ist!
        'Kann man den Feher abfangen???
        username = dr.Item("username")
        id = dr.Item("id")
 
        con.Close()