Utilizando tu mismo codigo, añadiendo algunas lineas quedaria asi, te toca pulirlo:
Código:
Dim vec(9) As String
Dim i As Integer
Private Sub Form_Load()
i=0
End Sub
Código:
Private Sub command2_Click()
Set RecSQL = New ADODB.Recordset
Set RecSQL = New ADODB.Recordset
RecSQL.Open "SELECT nro_empresa,nombre_empresa,cedula_pat,direccion,nro_telef FROM rosal WHERE nombre_empresa LIKE '" & Text2 & "%' ", BD, adOpenStatic, adLockOptimistic
If RecSQL.EOF Then
MsgBox "No hay ningún registro en la base de datos", vbExclamation
Else
RecSQL.MoveFirst
Do Until RecSQL.EOF
Var = ""
Var = Var & " " & RecSQL.Fields(0) & " " & RecSQL.Fields(1) & " " & RecSQL.Fields(2) & " " & RecSQL.Fields(3) & " " & RecSQL.Fields(4)
List2.AddItem Var,i
Vec(i)= RecSQL.Fields(2)
i=i+1
RecSQL.MoveNext
Loop
End If
End Sub
Con esto guardas las cedulas en un vector a medida que se muestran los datos y se añaden al ListBox... Ya te queda solo sacar el valor del vector para hacer la busqueda de los datos de esa persona (item) seleccionado...