El error esta en el WHERE... Estas buscando un nro_empresa que no exista..
Colocalo asi y veras que no te sale ese error
Código:
RecSQL.Open "SELECT nombre_empresa,cedula_pat,direccion,nro_telef 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
l