dim sqlserver, sqluser, sqlpwd, sqldb
dim sconn, srs

dim excelfile
dim econn, ers

dim query

sub sqlconn ' open a connection to access db'
  set sconn = CreateObject("ADODB.Connection") 'prep connection'
  set srs = CreateObject("ADODB.Recordset") ' prep recordset'
  sconn.open "PROVIDER=SQLOLEDB;DATA SOURCE=" & sqlserver & ";UID=" & sqluser &_
             ";PWD=" & sqlpwd & ";DATABASE=" & sqldb
end sub

sub closesql ' close the connection to the db
  srs.close
  set srs = nothing
  sconn.close
  set sconn = nothing
end sub

sub excelconn ' open a connection to access db'
  set econn = CreateObject("ADODB.Connection") 'prep connection'
  set ers = CreateObject("ADODB.Recordset") ' prep recordset'
  eConn.Open "DRIVER={Microsoft Excel Driver (*.xls)};DriverID=790;" &_
                  "DBQ=" & excelfile & ";DefaultDir=;UID=;PWD=;"
end sub

sub closeexcel ' close the connection to the db
  ers.close
  set ers = nothing
  econn.close
  set econn = nothing
end sub