Set conn = New ADODB.Connection
 conn.CursorLocation = adUseClient
 conn.Open "Provider=Microsoft.Jet.OLEDB.3.51;" & _
           "data source=" & App.Path & "\access\db1.mdb;"
 
 Set rec = New ADODB.Recordset
 rec.Open str, conn, adOpenKeyset, adLockOptimistic
 
 With DataGrid1
   Set .DataSource = rec
 End With

Don't , be