error al controlar tablas

[erick185]

Hola

Tengo un problema que no he podido solucionar, quiero controlar 2 tablas con un adodc, tengo una base con 2 tablas (tabla1, tabla2) en access y en vb tengo 2 botones para las 2 tablas y un datagrid,
Lo que quiero hacer es que si presiono el boton1 que el grid me muestre los datos de la tabla1.
Y si presiono el boton2 que el datagrid me muestre los datos de la tabla2.
Este es el codigo que estoy usando:

Código [Seleccionar] Expandir

Sub AsignaTabla(Tabla As String)
  Adodc1.RecordSource = ""
  Adodc1.Refresh
  End Sub
Private Sub Command1_Click()
  AsignaTabla "select * from Tabla1"
End Sub
Private Sub Command2_Click()
  AsignaTabla "select * from Tabla2"
End Sub
Cuando presiono el boton1, el datagrid si me muestra los datos de la tabla1, aqui no hay problema.
Pero cuando presiono el boton2 el datagrid me aparece en blanco, no me muestra nada, y es que la tabla2 de mi base contiene datos.

La verdad no se que hacer, cuento con su ayuda, de antemano gracias.

Salu2

[karmany]

Yo creo que el problema lo tienes al hacer el:
Adodc1.Recordsource = ""

Yo veo que cada vez que pulsas un btn, la búsqueda que realizas es nula. Podrías hacer algo como:

Private Sub Command1_Click()
   Adodc1.RecordSource = "Select * from Tabla1"
   Adodc1.Refresh
End Sub
y lo mismo con el otro..