Down To 1 Line Now

'So whats the SQL server 2005 Express Edition gonna be called here?

sub openconn ' open a connection to access db'
dim tries
set conn = CreateObject("ADODB.Connection") 'prep connection'
set rs = CreateObject("ADODB.Recordset") ' prep recordset'
tries = 0 ' clear tries counter'
do 'try to open connection to the db
conn.open "DRIVER={Microsoft Access Driver (*.mdb)};" &_ 'CHANGE THIS STRING FOR SQL CONNECTION
"DBQ=" & RouteFile & ";DefaultDir=;UID=;PWD=;"
tries = tries + 1
if (err.number <> 0) then 'if errored, close this connection
conn.close
end if
Loop While (Err.Number<>0) And tries < 10 'if errored, try again. MAX TRIES = 10
end sub