rs.Open "SELECT * FROM User", con, adOpenStatic, adLockReadOnly
 
        Do Until rs.EOF
 
        Set Me.dbgrdMA.DataSource = rs
 
            Me.dbgrdMA.Columns(0).Width = 1000
            Me.dbgrdMA.Columns(1).Width = 1400
            Me.dbgrdMA.Columns(2).Width = 1000
            Me.dbgrdMA.Columns(3).Width = 1400
            Me.dbgrdMA.Columns(4).Width = 1400
            Me.dbgrdMA.Columns(5).Width = 1000
 
 
             'das hier habe ich nur zur kontrolle eingebaut, er liest die 
             ' tabelle ohne probleme bis zum ende aus.
            string1 = rs("Benutzername")
            string2 = rs("Benutzerkennwort")
            string3 = rs("MaName")
            string4 = rs("MaVorname")
            int1 = rs("PK_UserID")
            int2 = rs("administrator")
 
        rs.MoveNext
        Loop
        rs.Close