Many issues here.... I can see you are working with SQL Server. Right off the bat, when working with SQL Server DO NOT USE ODBC. Use OLE-DB instead.

Here is the latter code recasted:

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