Visual Basic - Ayuda con ADO_ SQL server

Hola a todos,

A ver explico... Necesito introducir los registros de un campo de una consulta que tengo generada en una base de datos en un data combo.

La base de datos que tengo es de Access 2003, y la consulta, trabaja con tablas importadas de una base de datos ODBC (Baan ERP).

La consulta desde access funciona perfectamente, el problema es que cuando abro la consulta me pide el password para iniciar la sesion de SQL Server, vale se lo introduczco y puedo hacer la consulta.

Mi problema es que nose como acceder a esta consulta por el tema del password...

Os pongo el código que estoy utilizando.

Private Sub Form_Load()

Set conn = New ADODB.Connection
path_bd = "\\nostromo\produccion\encmdl\bases\ges_planta.mdb" '<---- cambiar x tú base de datos path, nombre, etc
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & path_bd & ";" & _
"Persist Security Info=False"
conn.Open
'''''''Command1.Caption = "Comparar Claves"
'''''''''Text1.Text = ""
Set rs = New ADODB.Recordset
rs.Open "Select i_item from _Codigos_mdl", conn, adOpenStatic, adLockOptimistic
Set DataCombo1.DataSource = rs
Set DataCombo1.RowSource = rs
DataCombo1.BoundColumn = "i_item"
DataCombo1.ListField = "i_item"

End Sub

Este mismo código lo utilizado para abrir tablas o consultas, que no requieren la inicializacion de sesion de SQL y funciona perfectamente.

tal como lo tengo ahora cuando ejecuto me da el siguiente error:

''''Error '-2147217904 (80040e10)' en tiempo de ejecución:
''''No se han especificado valores para algunos de los parametros requeridos.

Espero que me podais ayudar, muchas gracias por adelantado.

Disculpad, me he confundido, el error que da es el siguiente

Error '-2147467259 (80004005)' en tiempo de ejecucion:
ODBC: error al conectar con 'BAANSYSTEM2'

Gracias