Visual Basic - Ya no se qué hacer!!!!! =(

Hola!!
Tengo una aplicación que antes trabajaba con Access, pero se tuvo que cambiar la base de datos a SQL Server. Esta base de datos en SQL está en un servidor, por lo que mi aplicación tiene que conectarse como un cliente.
Dentro de mi aplicación manejaba catálogos en donde se incluía un navegador, hay botones que hacen búsquedas hacia delante, hacia atrás, ir al primero e ir al último.
Esto funcionaba perfectamente cuando la base de datos estaba en Access, pero ahora que está en SQL Server ya no funciona.
En el código de conexión tengo lo siguiente:

Set connection = New ADODB.connection
connection.ConnectionString = "Provider=SQLOLEDB.1;" & _
"server=DIRECCIONIP;uid=USER;pwd=PASS;database=BD1"
connection.ConnectionTimeout = 30
connection.Open

En server pongo directamente la dirección IP de mi servidor

Y en donde hago mis queries está así:

Public Function LlenaDatos()
On Error GoTo Err_Handler
Set llena = connection.Execute("SELECT * FROM EMPLEADO WHERE Stat_Emp=1 ORDER BY NUM")
If llena.BOF And llena.EOF Then 'recordset vacío
Else
llena.MoveFirst
End If
Exit Function
Err_Handler:
MsgBox "Se produjo el error" & vbCrLf & _
"Error: " & Err.Number & " - " & Err.Description, vbInformation
End Function

Alguien sabe por qué no funciona igual que en Access? Qué tengo qué hacer?

Muchas gracias!! Es que me urge mucho. Saludos!!

si no tienes error de coneccion con el servidor
prueba colocando indices a los campos tu base de sqlserver
si es que trasladaste la base de access a sqlserver no traspota los indices y debes crearlos.
en access no hay problema si no tienes indices
en sqlserver debes crearlos

cuentame como te fue
saludos