Опять пустой текст и никакой конкретики, ну нету у меня ни RTFMЮ ни MSDN. и где взять не понятно...

Подставил, ругачки нет , данные тоже не выводит, может что не так делаю.

Private Sub Form_Load()

cnn.Provider = "Microsoft.Jet.OLEDB.4.0"
cnn.Properties("Jet OLEDB:System database") = "\\server2\sopr1\secured.mdw" 'App.Path & "\SYSTEM.MDW"
cnn.Open "Data Source=c:\111\dfd.mdb;User Id=dddd;Password=12345;"
Set datHansa = New ADODB.Recordset
datHansa.Open "SELECT * FROM продажа", cnn, 2, 2
Set DataGrid1.DataSource = datHansa
End Sub

И это решит проблему?

ВСЕ СПАСИБО - ЗАРАБОТАЛО