Visual Basic para Aplicaciones - error en codigo vba

Life is soft - evento anual de software empresarial
   
Vista:

error en codigo vba

Publicado por kaesarus (3 intervenciones) el 05/02/2016 18:47:11
Hola buenas,soy nuevo programando y he desarrollado este codigo en access vba para relizar una consulta a la base de datos y me da error pero no se porque?.Agradecería una ayuda.

Muchas Gracias,

Un Saludo

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Option Compare Database
Option Explicit
Sub conecta()
Dim miconexion As New Connection
Dim mirecordset As New Recordset
Dim instruccion As String
'datos = Application.CurrentProject.Path
miconexion.Open "Provider =Microsoft.ACE.OLEDB.12.0; data source= C:\Users\prueba\datos\Comunidades1.accdb;"
'& datos & ";"
instruccion = "select Nombre from sitios"
mirecordset.OpenRecordset instruccion, miconexion, adOpenDynamic, adLockOptimistic
Do Until mirecordset.EOF
Debug.Print mirecordset![Nombre]
mirecordset.MoveNext
Loop
mirecordset.Close
Set mirecordset = Nothing
miconexion.Close
Set miconexion = Nothing
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
-1
Responder