Работа с DBGrid - VB

Формулировка задачи:

Имеется код:

Dim db As DAO.Database 
Dim rs As DAO.Recordset 
Dim sSQL As String 
Set db = DAO.OpenDatabase(FrmMain.TxtPathDB.Text)
sSQL = "SQL - Запрос;"
Set rs = db.OpenRecordset(sSQL)

Как подключить DBGrid к рекордсету!? Требуется банально в DBGrid вывести полученную таблицу!!! Вариант Set DBGrid1.DataSource = rs не работает! Раньше выводил в ListBox циклом, думаю что вывод в DBGrid будет более эффективен! Help me!!!

Решение задачи: «Работа с DBGrid»

textual
                            Листинг программы 
                        

                            Dim db As ADODB.Connection
Dim rs As ADODB.Recordset
Set db = New ADODB.Connection
db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FrmMain.TxtPathDB.Text & ";Persist Security Info=False"
db.Open
Set rs = New ADODB.Recordset
SQL = "SELECT " & FrmMain.TxtTabOfGlass.Text & ".Price_t, " & FrmMain.TxtTabOfGlass.Text & ".Buy_t, " & FrmMain.TxtTabOfGlass.Text & ".Sell_t From " & FrmMain.TxtTabOfGlass.Text & " ORDER BY " & FrmMain.TxtTabOfGlass.Text & ".Price_t DESC;"
rs.Open SQL, db, adOpenStatic, adLockPessimistic
Set FrmMain.DataGrid.DataSource = rs
FrmMain.DataGrid.Refresh
                        