eventos en formulario

[vbx3m]

Código:

Private Sub pasadato_DblClick()
'Te falto crear el objeto Recordset
Set RecSQL = new ADODB.Recordset '<<<
RecSQL.Open "SELECT nro_empresa,nombre_empresa FROM rosal WHERE nro_empresa=  '" & Val(pasadato.SelectedItem) & "' ", BD, adOpenStatic, adLockOptimistic
If RecSQL.EOF Then
    MsgBox "No se consigue"
   Else
Form2.Text1.Text = RecSQL.Fields(0)
Form2.Text2.Text = RecSQL.Fields(1)
Form2.Text3.Text = RecSQL.Fields(2)
Form2.Text4.Text = RecSQL.Fields(3)
Form2.Show vbModal
End If
RecSQL.Close
Set RecSQL = Nothing
End Sub