- Код: Выделить всё
Dim con As ADODB.Connection
Dim rs1 As ADODB.Recordset
Set con = New ADODB.Connection
con.ConnectionString = "Driver={Microsoft dBASE Driver (*.dbf)};" & _
"DriverID=277;Dbq=C:\doroga04\d126\;Exclusive=No"
con.Open
Set rs1 = New ADODB.Recordset
Set rs1.ActiveConnection = con
rs1.CursorLocation = adUseClient
rs1.Open "SELECT * FROM PRIM", , adOpenStatic, adLockReadOnly, adCmdText
может я что-то упустил,либо в чем то не прав...подскажите