数据库非常连接

Question

Public Function openCon(ByVal dbasource As String, dba As String, userid As String, pass As String)
  If myCon.State = adStateOpen Then myCon.Close
  'myCon.Open "Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=aaaa;Data Source=locahost" '正常连接
  myCon.Open "Provider=SQLOLEDB.1;Password=pass;Persist Security Info=True;User ID=userid;Initial Catalog=dba;Data Source=dbasource" '换用了变量后,连接失败
End Function为什么我这里的登陆名、密码、数据库、数据服务换成变量后就连不上去了。有哪些错误啊，

Answer 1

换了变量就该用『&』连接啊……"...User ID=" & userid & ";Initial Catalog=" & dba & ";Data Source=" & dbasource

Answer 2

myCon.Open "Provider=SQLOLEDB.1;Password="+trim(pass)+";Persist Security Info=True;User ID="+trim(userid)+";Initial Catalog=dba;Data Source=dbasource"