Multiple busqueda.

[hhpp]

Miren intento conseguir los datos del campo "nombre", con sus id's corresdpondientes, pero no me funciona, solo me muestra el prmier nombre y listo.

necestio registrar los tres nombres apuntados por Id.

La conmexion y la apertura(open(recordset), connection) van en el form principal.

Ojala puedad ayudarme.
Grazcias.

Private Sub busqueda()
Dim sSQL As String
Dim sSQL1 As String
Dim sSQL2 As String
Dim nom As String
Dim nom1 As String
Dim nom2 As String

sSQL = "select * table1 where id='1'"
sSQL1 = "select * table1 where id='3'"
sSQL2 = "select * from table1 where id='4'"
If Not rst.EOF Then
nom = rst.Fields("Nombre") 'nom seria lo que desea enviar al puerto serie
nom1 = rst.Fields("Nombre")
nom2 = rst.Fields("Nombre")
End If
Text3.Text = nom
Text4.Text = nom1
Text5.Text = nom2




End Sub