Cita:
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) 