Visual Basic - Ayuda por favor

hola tengo un aplicacion en la que existe un texbox en este busco el nombre de la empresa solo con su inicial.
Si uso este codigo de manera local si lo hace pero al momento de subirlo al servidor se salta la parte en donde se acompleta el nombre de la empresa

El codigo es el siguiente de manera local cambia la forma de conectarse a la base por que la que uso de manera local no me permitia conectarlo de la misma forma en el servidor

Este codigo es de manera local

Private Sub empresa_Change()
If empresa.Text <> "" Then
ir.Enabled = True
Else
ir.Enabled = False
End If

Dim rs As Recordset
Set db = DBEngine.OpenDatabase("R:\BD\bdprospectos.mdb")
Set rs = db.OpenRecordset("SELECT * FROM clientes ")
rs.OpenRecordset
With rs

Dim TCadena, T As Variant
If rs.RecordCount > 0 Then
List1.Clear
rs.MoveFirst
TCadena = Len(empresa.Text)
While Not rs.EOF
Cadena = Mid(rs(0), 1, Len(empresa.Text))
If UCase(Cadena) Like UCase(empresa.Text) Then
List1.AddItem rs(0)
End If
rs.MoveNext
Wend
End If
End With
End Sub


Servidor

Set conexion = New Connection
conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=R:\BD\bdprospectos.mdb; Persist Security Info=False"
consulta = "SELECT empresa FROM clientes"
Set comando = New Command

With comando
.ActiveConnection = conexion
.CommandText = consulta
.CommandType = adCmdText
End With

Set rs = comando.Execute

With rs
Dim TCadena, T As Variant
If rs.RecordCount > 0 Then ---------------->>>>>de aquin se salta al final y no ejecuta la

siguiente linea

List1.Clear
rs.MoveFirst
TCadena = Len(empresa.Text)
While Not rs.EOF
Cadena = Mid(rs(0), 1, Len(empresa.Text))
If UCase(Cadena) Like UCase(empresa.Text) Then
List1.AddItem rs(0)
End If
rs.MoveNext
Wend
End If
End With

End Sub

Alguno de ustedes sabe por que o cuales son las circunstancias para que no se ejecute esta parte del codigo gracias por su ayuda