Dim cn As New ADODB.Connection
Dim r As New ADODB.Recordset cn.Open "DBQ=c:\;DefaultDir=;DRIVERMicrosoft dBase Driver (*.dbf)};Uid=admin;Pwd=;" r.Open "select * from p", cn
Dim r As New ADODB.Recordset cn.Open "DBQ=c:\;DefaultDir=;DRIVERMicrosoft dBase Driver (*.dbf)};Uid=admin;Pwd=;" r.Open "select * from p", cn
r.Open "select * from q", cn