В Access2000 использую функцию для открытия соединения с SQL7 :

Public Function st_d_1() As String
Dim DB As Database
Dim rs As DAO.Recordset
Dim st_dsn As String
Set DB = CurrentDb()
Set rs = DB.OpenRecordset("tbl_client")

st_dsn = "DRIVER={sql server}; SERVER=" & rs!server
st_dsn = st_dsn & "; database=" & rs!Database
st_dsn = st_dsn & "; UID=" & rs!User
st_dsn = st_dsn & "; pwd=" & rs!Password

st_d_1 = st_dsn

rs.Close
DB.Close
Set rs = Nothing
Set DB = Nothing
st_dsn = ""
End Function



Обращаюсь к ней так :

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim st_sq As String

st_sq = "SELECT * FROM my_docs WHERE base =" & base()
cn.Open st_d_1()
rs.Open st_sq, cn, adOpenStatic, adLockReadOnly

Но почему-то иногда запрос не возвращает все данные, хотя в Query Analyzer все работает...