eventos en formulario

[banrey]

si ya lo habia areglado tipie mal ese linea ahora fijate tu me dices que haga esto amigo

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.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 Sub


si es asi que debo hacerlo entonces fijate el error que me da el valo EOF es true o el actual registro se elimino la operación solicitada requiere un registro actual
eso por una parte por otra parte que deberia tener en el form2 ya tengo son los text creados solamente tengo los 4 text que quiero mostrar en el form2 mas nada