Luis
31 de Mayo del 2005

Hola,
alguien podria ayudarme por favor, me explico.
a partir del siguiente codigo:
Private Sub Command1_Click()

Dim bases As Database

Set bases = OpenDatabase(Combo1.Text, False, False, "DSN=" & Combo1.Text & ";odbc;uid=xxxx;pwd=xxxx")

Dim consulta As String
Dim rst As Recordset

consulta = "select * from departamentos where dep_nom ='OP.MTO.DES.Z.GIRONA'"
Set rst = bases.OpenRecordset(consulta, dbOpenSnapshot)
rst.MoveFirst

While Not rst.EOF

List1.AddItem rst.Fields(0)
rst.MoveNext

Wend

rst.Close

End Sub

el dsn del sistema apunta a la base de datos de Oracle, entonces al clicar el boton me sale el error siguiente "error 3024 en tiempo de ejecucion:" No se puede encontrar el archivo 'c:Archivos de programa...VB98xxx.mdb', pero la base de datos no esta ubicada en esta direccion fisica si no q esta conectada remotamente, y al depurar me sale en la linea de " Set rst = bases.OpenRecordset(consulta, dbOpenSnapshot)" , si no hiciese ninguna select me chuta bien, alguien me podria decir q algo mal?, no se si me he explicado bien pero es lo mas ajustado q puedo decir de mi problema.
Ante todo muchas Gracias
Saludos.
Luis