Ayuda con Adodc1

[MarcoArzapalo]

BUENAS TARDES AMIGOS, TENGO UN ERROR EN MI CODIGO PERO NO ENCUENTRO LA SOLUCION Y ESPERO Q ME PUEDAN AYUDAR. TENGO LA RUTA DE UNA VBASE DE DATOS EN UN CUADRO DE TEXTO Y DESEO QUE EL ADO LLAME A LA RUTA

Private Sub Form_Load()
Text1.Text="C:\admision\admision.mdb"
Const sPathBase As String = Trim(Text1.Text)
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sPathBase & ";Persist Security Info=False;Jet OLEDB:Database Password=217416"
Adodc1.RecordSource = "select * from WSConfig"
Adodc1.Refresh
End Sub

Desde ya muchas gracias

Saludos

[Avellaneda]

Iniciado por MarcoArzapalo

BUENAS TARDES AMIGOS, TENGO UN ERROR EN MI CODIGO PERO NO ENCUENTRO LA SOLUCION Y ESPERO Q ME PUEDAN AYUDAR. TENGO LA RUTA DE UNA VBASE DE DATOS EN UN CUADRO DE TEXTO Y DESEO QUE EL ADO LLAME A LA RUTA

Private Sub Form_Load()
Text1.Text="C:\admision\admision.mdb"
Const sPathBase As String = Trim(Text1.Text)
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sPathBase & ";Persist Security Info=False;Jet OLEDB:Database Password=217416"
Adodc1.RecordSource = "select * from WSConfig"
Adodc1.Refresh
End Sub

Desde ya muchas gracias

Saludos

Hola,
aunque no dices ni el tipo de error ni en qué línea lo dá, supongo que será en la declaración de la constante.
Y es porque a una constante no se le puede asignar una variable, tendría que ser así:

Const sPathBase As String = "C:\admision\admision.mdb"

o así:

Dim sPathBase As String
sPathBase = Trim(Text1.Text)