Exactamente que error te da? Para pasar los datos a los Text del otro Form haces referencia a el...
Form2.Text1.Text= dato
Ahora me he dado cuenta de algo que debes arreglar
Código:
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
Por una parte creas 2 Recordset con el mismo nombre y lo otro es donde cierras el objeto Recordset?