Riter » 08.02.2005 (Вт) 17:08
ConnectionString = "Driver={Microsoft Text Driver (*.txt; *.csv)};Dbq=" & sPath & ";Extensions=asc,csv,tab,txt;"
Set cn = New ADODB.Connection
cn.CursorLocation = adUseClient
cn.CommandTimeout = 20
cn.ConnectionTimeout = 30
cn.Open ConnectionString
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
Set rs.ActiveConnection = cn
SQL = Sql_zapros
rs.Open SQL, , adOpenStatic, adLockReadOnly, adCmdText
Может у меня где ошибка?