Tables liées + sql+vb6

Bonjour,
je voudrais que qlq un m'aide à reussir l'extraction des données à partir des tables liées avec sql en vb6 voici le programme que j'ai fait mais apparement il y'a un probleme au niveau de << set rs=cmd.excute>>.voila le programme
Dim cn As ADODB.Connection
Dim cmd As ADODB.Command
Dim rs1 As ADODB.Recordset
Dim prm As ADODB.Parameter

Private Sub Command1_Click()
Set cn = New ADODB.Connection
cn.Provider = "microsoft.jet.oledb.4.0"
cn.ConnectionString = "C:\Documents and Settings\Administrateur\Bureau\Nouveau dossier\getfonct.mdb"
cn.Open
Set cmd = New ADODB.Command
cmd.ActiveConnection = cn
cmd.CommandText = "SELECT Fonctionnaires.nomprenomla, Fonctionnaires.nomprenomar, Fonctionnaires.datenai, Fonctionnaires.lieunaila, Fonctionnaires.lieunaiar, situationfamiliale.situationfam, situationfamiliale.nomconjointla, situationfamiliale.nomconjointar, situationfamiliale.doticonjoint, CINs.cin, CINs.lieucinla, CINs.lieucinar, CINs.datecin FROM fonctionnaires,situationfamiliale,cins where fonctionnaires.doti=?"
cmd.Prepared = True
Set prm = cmd.CreateParameter(, adBSTR)
cmd.Parameters.Append prm
prm.Value = Text1.Text
prm.Size = Len(Text1.Text)
Dim rs1 As New ADODB.Recordset
Set rs1 = cmd.Execute
Text2.Text = rs1("nomprenomar")
Text3 = rs1("nomprenomla")
Text4 = rs1("datenai")
Text5 = rs1("lieunaiar")
Text6 = rs1("lieunaila")
Text7 = rs1("situationfam")
Text8 = rs1("doticonjoint")
Text9 = rs1("nomconjointla")
Text10 = rs1("nomconjointar")
Text11 = rs1("cin")
Text12 = rs1("datecin")
Text13 = rs1("lieucinla")
Text14 = rs1("lieucinar")

End Sub