eventos en formulario

[banrey]

hola como estas amigo ya casi que resuelvo el programita puede realizar las salidas por un lisview y me sale perfecto ahora cuando voy a llamar al otro formulario lo hago asi y me corre:

Private Sub FillListView()
Do While Not RecSQL.EOF
If IsNumeric(RecSQL(0).Value) Then
Set nextLine = pasadato.ListItems.Add(, , Str(RecSQL(0).Value))
Else
Set nextLine = pasadato.ListItems.Add(, , RecSQL(0).Value)
End If
For count2 = 1 To RecSQL.Fields.count - 1
nextLine.SubItems(count2) = "" & RecSQL(count2).Value
Next count2
RecSQL.MoveNext
Loop
End Sub
Private Sub pasadato_DblClick()
Set RecSQL = New ADODB.Recordset
Set RecSQL = New ADODB.Recordset
RecSQL.Open "SELECT nombre_empresa,cedula_pat,direccion,nro_telef FROM rosal WHERE nro_empresa = '" & Val(pasadato.SelectedItem) & "' ", BD, adOpenStatic, adLockOptimistic
Form2.Show vbModal
End Sub

pero me da error una vez que llaga al form2 yo estoy seguro que no se como capturar el sato para que me muestre los datos en los distintos text que tengo preparado para que me muestre la info ayudarme con esto por favor como capturo o paso el valor para mostrar en el form2 los datos que me restan mostrar