# Select Db Sql e Insertar tabla Access

[Inicio](https://www.todoexpertos.com/) › [Microsoft Access](https://www.todoexpertos.com/temas/microsoft-access)

- Fecha de publicación: 2019-08-06
- Enlace canónico (HTML): https://www.todoexpertos.com/preguntas/9uoeo7byp58thda4/select-db-sql-e-insertar-tabla-access

## Pregunta

*Por Carlos Dahbura* · 2019-08-06

Y pido de su ayuda por favor.Estoy realizando en un form de Access una consulta VBA a una tabla en SQL Server, y dicho resultado lo quiero ingresar en una tabla Access que es donde estoy trabajando localmente.El codigo es el siguiente:Dim cn As Object
Dim rst As Object
Dim sql As String
Dim nRegistros, y As Long
Set cn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")
'-- Conexion con el Servidor
cn.Open "Driver={SQL Server};" & _
           "Server=XXXX;" & _
           "Database=XXXX;" & _
           "Uid=XXXX;" & _
           "Pwd=XXXX"
SQl= "Select...."
With rst
    .CursorType = adOpenKeyset
    .Open sql, cn, , , adCmdText
End With
Let nRegistros = rst.RecordCount
rst.MoveFirst
DoCmd.SetWarnings False
For y = 1 To nRegistros
DoCmd.RunSQL "INSERT INTO " & _
"Gateway (Id_Cliente) " & _
"VALUES('" & rst.Fields(Id).Value & "')"
rst.MoveNext
Next y
cn.Close
Set rst = Nothing: Set cn = Nothing
DoCmd. SetWarnings TrueEl problema es que en la variable nRegistros me trae un -1, y por lo mismo no entra en el For; he probado la consulta directamente en la DB y no me da problema alguna.Me ayudan

## Respuestas (2)

### 1. Respuesta aceptada de Jacinto Trillo Jareño
*Fecha: 2019-08-07 · Votos: 2 (+2/-0)*

Carlos: Prueba simplemente con >>nRegistros = Rst.RecordCount sin el LetUn saludo >> Jacinto

### 2. Respuesta de Abraham Valencia
*Fecha: 2019-08-07 · Votos: 1 (+1/-0)*

[Hola¿Eso te ocurre en un Access de 64 bits? Ojo, Access, o sea el Office, no estoy preguntando por los bits del Windows.Abraham Valencia

---
*Fuente: [https://www.todoexpertos.com/preguntas/9uoeo7byp58thda4/select-db-sql-e-insertar-tabla-access](https://www.todoexpertos.com/preguntas/9uoeo7byp58thda4/select-db-sql-e-insertar-tabla-access) — consultado el 2026-10-21. Al citar, enlaza la URL canónica e indica la fecha de consulta.*