Dim cn As ADODB.Connection
Dim Rs As ADODB.Recordset
 
' Datenbank-Connection
Set Cn = New ADODB.Connection
cn.CursorLocation = adUseClient
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=c:\mawo_10\dat\mawo10.mdb;" & _
    "Persist Security Info=False"
 
' Recordset erstellen und öffnen
Set Rs = New ADODB.Recordset
Rs.Open "select * from mandt", cn, adOpenStatic, adLockOptimistic
 
' Recordset dem DataGrid zuweisen
Set Me.DataGrid1.DataSource = Rs

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de