Thanks again for all the help, I truly appreciate it!
my code:
Option Explicit
Sub connectDB()
Dim conn As ADODB.Connection
Dim rs As ADODB.RecordSet
Dim strHost, strDatabase, pwd, strUser, strPassword As String
Set conn = New ADODB.Connection
strHost = "46!#!dbs"
strDatabase = "n!$c"...