strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" ; + "Data Source=C:\Temp\MiAccess.mdb;" ; + "Jet OLEDB:Database Password=xxxx;" Conn = CreateObject("ADODB.Connection") With Conn .CursorLocation = 3 && adUseClient .ConnectionString = strConn .Open EndWith sSql = "Select * From myTable" RS = Conn.Execute(sSql) ? RS.Fields(0).Value * .. etc.