Visual Basic - Vb6 mostrar nombre de tablas en combobox

Bueno tengo un app en Vb6 con access 2010 soy nuevo en esto y lo que quiero hacer es mostrar el nombre de 3 tablas en un combobox que tengo en la bdd y cuando elija una opcion (nombre de la tabla), como que se ligue a esa tabla en la bdd y lo que registre (inserts) se guarde en esa tabla

de antemano muchas gracias

Cabe indicar que debes estar conectado a la tabla con la conexion

Public conexion As New ADODB.Connection
Public RsI As New ADODB.Recordset



Si no ando mal esto es lo quenecesitas
Me funcionaba en access 2003

Private Sub Form_Load()
Dim rsI As New ADODB.Recordset
Set rsI = conexion.OpenSchema(adSchemaTables)
Do Until rsI.EOF
If Not esTablaSistema(rsI("TABLE_NAME")) Then
cmb_serv.AddItem rsI("TABLE_NAME")
End If
rsI.MoveNext
Loop
rsI.Close

End Sub


'***Funcion verificacion de tablas de sistema

Function esTablaSistema(nombreTabla As String) As Boolean
Dim tablaSistema As String
Dim a As String
tablaSistema = Left(nombreTabla, 4)
If tablaSistema = "MSys" Or tablaSistema = "~TMP" Then 'AG2 sys o tmp 05-02-2006
esTablaSistema = True
Else
esTablaSistema = False
End If

End Function

muchas gracias por tu respuesta ,

si no esta demas me podrias explicar el codigo es que estoy empesando y ya sabes , la verdad quiero comprender bien para que ya no tenga problemas con esto.

Probare el codigo y te comento

Bueno en lo que puedo te explico
' esto es cuando inicia la aplicacion
'creas un recorset que es nada mas como un repositorio de datos ahora los llaman dataset.. aunque este es mucho mejor
'el OpenSchema es entrar al esquema de la tabla.. esto es por que el esquema es la base de datos de la base de datos .. largo para explcar pero .. es como llega a las tablas
luego haces un ciclo do recorriendo los datos que obtubo el recorset
y luego va cogiendo el nombre de la tabla....
Aqui manda como parametro el nombre de la tabla .. y el otro codigo o funcion determina si es o no del sistema
Por ende te pondra en el combo aquellas tablas que no son del sistema es decir solo las que tu creaste... cabe indicar que aqui tu podras modificar el codigo
Una vez que acaba con el ciclo . termina y presenta el form con el combo lleno de los nombres de las tablas QUE no sean del sistema

Espero te ayude



Private Sub Form_Load()
Dim rsI As New ADODB.Recordset
Set rsI = conexion.OpenSchema(adSchemaTables)
Do Until rsI.EOF
If Not esTablaSistema(rsI("TABLE_NAME")) Then
cmb_serv.AddItem rsI("TABLE_NAME")
End If
rsI.MoveNext
Loop
rsI.Close

End Sub

Private Sub Combo2323_Click()
Public conexion As New ADODB.Connection
Public rsl As New ADODB.Recordset
Dim rsl As New ADODB.Recordset
Set rsl = conexion.OpenSchema(adSchemaTables)

Do Until rsl.EOF
If Not esTablaSistema(rsl("sorteo1")) Then
Combo2323.AddItem rsl("sorteo1")
End If

rsl.MoveNext

Loop

rsl.Close

End Sub

gracias ahora que mas claro , la duda que me surge cual es la linea donde se indica el nombre de la bdd
paraque el rsl pueda recorer la bdd y en contrar la tabla , una disculpa si sueno enfadoso

Loque pasa es que entiendo que tu ya tienes conectado la aplicacion con la base de datos... si no es asi .. yo lo manejoc on ODBC de access y yo la conexion la seteo con este dsn de sistema y ese es el que tiene la conexion con la base de datos....

si no tienes avisame para tratar de enviarte un ejemplo...

si la tengo conectada a una bdd , el problema es que como estoy modificando el sistema no se donde tiene la coneccion como para buscar las variables que la coneccion he buscado pero no encuentro el codigo de coneccion y pues eso lo hace un poco mas dificil para mi ya que estoy empezando , y si me podrias mandar un ejemplo seria de muchisima ayuda.

gracias por tu apoyo

Coño es que es muy dificil que puedas aclarar bien las dudas....!. o por lo menos escribir el código en forma completa, el sr te está diciendo desde el principio que esta empezando a programar y tu no eres capaz de dar una instrucción clara y AMIGABLE, debe ser que Ud. cuando comenzó a programar le dieron mucho palo, por lo que aprendió, fue a ayudar lo menos posible... para eso diga que no te interesa ayudarlo.... y retírate del foro para que no te molesten mas....

Necesitas alguna duda en especial o solo estas renegando?