Как связать ADODB.Recordset с DBGrid

Может кто подскажет как можно связать ADODB.Recordset с DBGrid, а то никак не могу вставить результат выполнения запроса.

Ниже код

Dim rst As ADODB.Recordset
Dim strConnect As String
Dim strSQL As String
Dim fld As ADODB.Field


strConnect = "Provider=MSDAORA.1;Password=user1;User ID=user1;Data Source=student;Persist Security Info=True"


strSQL = "select * from USER1.RSPDPP_TRANSACTIONS where trnsSrcAcntNum=11001"

Set rst = New ADODB.Recordset
With rst
.Open Source:=strSQL, _
ActiveConnection:=strConnect, _
LockType:=adLockOptimistic



Do While Not .EOF
For Each fld In rst.Fields



'Print fld.Value & ";";
Next
'Print
.MoveNext
Loop

' Close the Recordset object.
.Close

Можна ли сразу сказать DBGrid, чтоб он брал инфу с RecordSet