Dim SqlCn as new adodb.connection
dim AcsCn as new adodb.connection
dim Sqlrs as new adodb.recordset
dim Acsrs as new adodb.recordset
SqlCn.Open "Driver={Sql Server};Server=xxx.xxx.xxx.xxx;uid=sa;Pwd=xxx;Database=Database"
AcsCn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\database.mdb"
Sqlrs.open "select * from fields",Sqlcn,1,1
Acsrs.open "select * from fields",Asccn,1,1