Set db = CreateObject("ADODB.Connection") db.ConnectionString = DSN=xxx;UID=sa;PWD=password db.Open sql = "SELECT * FROM table" Set rs = Execute(sql) Do Until rs.EOF rs.MoveNext Loop
EOF
Set db = CreateObject("ADODB.Connection") db.ConnectionString = DSN=xxx;UID=sa;PWD=password db.Open sql = "SELECT * FROM table" Set rs = Execute(sql) Do Until rs.EOF rs.MoveNext Loop
EOF