Visual Basic - Ayuda con adodc1

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:admisionadmision.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

Prueba asi.

dim sPathBase As String
Text1.Text="C:admisionadmision.mdb"
sPathBase = 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