De seguidas coloco un código:
En General declaratiosn
Private Const s_CONNECTION_STRING As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source= H:\Documents and Settings\All Users\Documentos\Zoom\BD|RCV.mdb;Persist Security Info=False"
Private WithEvents RsBTVe As ADODB.Recordset
En el evento form_load
Dim CnBTVe As ADODB.Connection
Set CnBTVe = New ADODB.Connection
CnBTVe.CursorLocation = adUseClient
CnBTVe.Open s_CONNECTION_STRING
Set RsBTVe = New Recordset
RsBTVe.Open "Select [TVeModelo]," & _
"[TVeMarca]" & _
"From TipoVehiculo Order By TVeMarca,TVeModelo Asc", _
CnBTVe, adOpenStatic, adLockOptimistic
Propuse originalmente en data source
... & "Data Source=" & App.Path & "\BD\RCV.mdb; Persist..."
Luego probé convertirlo en una variable y remplazar
El caso, amigos, es que le ha cantado canciones, hecho ensalmos, etc. etc. etc y no acepta sino el path escrito con todas sus letras en la declaración de constante en "General", porque sino me da error cuando ejecuto en la cláusula "Open s_CONNECTION:STRING" en el evento Form_Load.....
Por supuesto, necesito que el programa sepa el path dónde está y se adecúe. En otros módulos hechos con distinto método, App.Path me funciona bien pero en este módulo que copié no logro eso del App.Path
habrá quien me pueda echar una mano con esto?
Mil gracias por anticipado
Angel
