Работа с DBGrid

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)

Option Explicit
Private db As ADODB.Connection
Private rs As ADODB.Recordset
'....
Set db = New ADODB.Connection
db.ConnectionString = "Provider=Microsoft.JET.OLEDB.4.0;Data Source=" & App.Path & "\MyBase.mdb;" 
db.Open
Set rs = New ADODB.Recordset
sql = "Запрос"
rs.Open sql, db, adOpenStatic, adLockPessimistic
Set MSHFGTbl.DataSource = rs
MSHFGTbl.Refresh
'...

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