Bonjour

Je suis débutant en VB6 j'ai réussi à connecter ma base de données Access 2003 qui contient deux tables
et je souhaiterais connecter la deuxième table je ne sais pas comment
Merci d'avance.
mon code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
'DECLARATION
Dim con As New ADODB.Connection
Dim RS As New ADODB.Recordset
---------------------------------------------------
'CONNECTION
 
Private Sub Form_Load()
   Me.Left = (Screen.Width - Me.Width) / 2
   Me.Top = (Screen.Height - Me.Height) / 2
   con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\PROJET\data.mdb;Persist Security Info=False"
   rs.CursorLocation = adUseClient
   rs.Open "select * from table1", con, adOpenDynamic, adLockBatchOptimistic
   Set Text1.DataSource = rs
   Text1.DataField = "id"
   Set Text2.DataSource = rs
   Text2.DataField = "Nom"
   Set Text3.DataSource = rs
   Text3.DataField = "PRENOM"
   Set Text4.DataSource = rs
   Text4.DataField = "ADRESSE"
   Set DataGrid1.DataSource = rs
End Sub