Ok sustituye esto, copia y pega:
Código vb:
Ver originalCadena_SQL = "Provider = SQLOLEDB;Server=" & macForm.ConnInfo.Server & ";Database=" & macForm.ConnInfo.Db & ";Uid=" & macForm.ConnInfo.User & ";Pwd=" & macForm.ConnInfo.pwd
Tienes un error con comillas y el simbolo de concatenacion.
copia y reemplaza el tuyo!