DAO.RecordSet к гриду не приколотить, колочу ADO.RecordSet и записи не отображаются в гриде после выполнения этого кода! Вот он!

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strConn As String
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\baza.mdb"
Set cn = New ADODB.Connection
With cn
.ConnectionString = strConn
.Open
End With

Set rs = New ADODB.Recordset
rs.Open "select * from MyTable", cn, adOpenKeyset, adLockOptimistic
With DataGrid1
Set .DataSource = rs
End With
Что тут не так? Что не хватает для того чтобы записи появились в гриде. Мне их нужно всего лишь отобразить!

Подключение успешное, записи в RecodSet - е есть.
Помогите, сложил уже все маты

qwertyuiopasdfghjklzxcvbnm ///]]]]sdfsd,,,,sdf554sd5fsd12sdfsdfsd;'algfs;'d

Я тут заснул на клавиатуре.

Конец мучениям.
.CursorLocation = adUseClient поствил на Connection и все заработало.

Public conn As ADODB.Connection
Public rs As ADODB.Recordset
Public DbFile As String

Public Sub ConnectToDB()
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
db_file = App.Path + "\Baza.mdb"

With conn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db_file
.Mode = adModeReadWrite
.CursorLocation = adUseClient
conn.Open
End With

With rs
.ActiveConnection = conn
.Source = "MyTable"
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open , , , , adCmdTableDirect
End With

а потом Set Grid.DataSource=rs

End Sub

Не особо долго.