loConn = CreateObject("ADODB.Connection") */ Replace the connectionstring data below with your own stuff... With loConn .Connectionstring = "Provider=SQLOLEDB.1;User ID=sa;Password=foo;Initial Catalog=pubs;Data Source=(local)" .CursorLocation = 3 EndWith loConn.Open loRS = CreateObject("ADODB.RecordSet") With loRS .ActiveConnection = loConn .Source = "departments" .Open EndWith