Dim cnn As New ADODB.connection
Dim rst As New ADODB.Recordset
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source='местонахождение базы';"
rst.Open "обычный SQL-запрос", cnn, adOpenKeyset, adLockOptimistic
Сейчас этот форум просматривают: Mail.ru [бот] и гости: 56