SQL Server Table To Excell

Hi all. i hope you can help me.

I´m exporting an ado recordset (SQL Server) to Excel from vb6.

This is what i´m doing but it only works on local server

********************************

Public Sub Export()
On Error GoTo Error
Dim strSheetName As String
Dim Conn As New ADODB.Connection

CDB.DialogTitle = "Exportar Datos"
CDB.Filter = "Archivos Excel (*.xls)|*.xls"
CDB.FileName = "Bitacora"
CDB.ShowSave
CDB.CancelError = True
If CDB.FileName = "" Then Exit Sub
If Conn.State = 1 Then Conn.Close
Conn.CursorLocation = adUseServer
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & CDB.FileName & "';Extended Properties=Excel 8.0;Persist Security Info=False"
strSheetName = "CREATE TABLE `Bitacora` (`IdUser` VarChar (3) ,`IdMenu` VarChar (20) ,`Fecha` DateTime ,`Referencia` VarChar (60) ,`Actividad` VarChar (120) ,`IP` VarChar (15) ,`HN` VarChar (15) )"
Conn.Execute strSheetName

If Conn.State = 1 Then Conn.Close
Conn.Open SisSession.SisConeccion
strSheetName = "insert into OPENROWSET('Microsoft.Jet.OLEDB.4.0', 'Excel 8.0;Database=" & CDB.FileName & "; HDR=YES', 'SELECT * FROM [Bitacora]') " & AdoData.Source & ""

Conn.Execute strSheetName

MsgBox "Datos Exportados en " & Chr(13) & CDB.FileName, vbOKOnly + vbInformation
Exit Sub
Error:
If Err.Number = 0 Then Exit Sub
ProcessError Err, Me.Name & " - Exportar", , , True
End Sub

*******************************************

Whe in configure the app for a network server it gives an error.

OLE/DB provider returned message: Microsoft Jet culd not find the object 'Bitacora'. Make sure the object exists and the route is ok.

This i assume is because the cange of the server from local to remote.

Can you help me with a solution?