Access VB - VBWEB

Senhores, em minha maquina carrega os dados porque esta instalado access.

Gostaria acessar de outras maquinas porem nao tem access instalado, o que precisa de mdac. os micros sao win2000 SP4 e estou usando o Jet4.0 (2003).

Baixei o mdac 2.8 e nao resolveu.

o problema acredito que nao seja o codigo fonte pq em minha maquina carrega, detalhe a planilha esta salva no servidor e deixei direcionadas.

segue uma parte de progrma

Private Function encheGridC115(dados As String, sql As String)

Dim CON As ADODB.Connection
Set CON = New ADODB.Connection
CON.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "/falhas.mdb;"

Dim RS As ADODB.Recordset
Set RS = New ADODB.Recordset

RS.Open sql, CON, 2, 1

MSFlexGrid1.Rows = 2
MSFlexGrid1.FixedRows = 1
MSFlexGrid1.FixedCols = 0

MSFlexGrid1.Rows = 1
MSFlexGrid1.Cols = RS.Fields.Count

ReDim largura_coluna(0 To RS.Fields.Count - 1)

For coluna = 0 To RS.Fields.Count - 1
MSFlexGrid1.TextMatrix(0, coluna) = RS.Fields(coluna).Name
largura_coluna(coluna) = TextWidth(RS.Fields(coluna).Name)
Next coluna

linha = 1
Do While Not RS.EOF
   MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1

   For coluna = 0 To RS.Fields.Count - 1
      MSFlexGrid1.TextMatrix(linha, coluna) = RS.Fields(coluna).Value

      ' verifica o tamanho dos campos
      largura_campo = TextWidth(RS.Fields(coluna).Value)

      If largura_coluna(coluna) < largura_campo Then largura_coluna(coluna) = largura_campo
   Next coluna


RS.MoveNext
   linha = linha + 1
Loop

RS.Close
CON.Close

' define a largura das colunas do grid
For coluna = 0 To MSFlexGrid1.Cols - 1
MSFlexGrid1.ColWidth(coluna) = largura_coluna(coluna) + 240
Next coluna

End Function

Private Sub Form_Load()
TreeView1.Nodes.Add , , "Defeitos", "Defeitos", 1, 2

TreeView1.Nodes.Add "Defeitos", tvwChild, "trnliga", "Não Liga", 4, 3
TreeView1.Nodes.Add "Defeitos", tvwChild, "trncar", "Não Carrega", 4, 3
'TreeView1.Nodes.Add "Defeitos", tvwChild, "trtrava", "Trava", 4, 3
'TreeView1.Nodes.Add "Defeitos", tvwChild, "trcons", "Consumo", 4, 3
TreeView1.Nodes.Add "Defeitos", tvwChild, "trdes", "Desliga", 4, 3
TreeView1.Nodes.Add "Defeitos", tvwChild, "trdis", "Display", 4, 3
TreeView1.Nodes.Add "Defeitos", tvwChild, "trsinal", "Sinal", 4, 3
TreeView1.Nodes.Add "Defeitos", tvwChild, "trchama", "Chama", 4, 3
TreeView1.Nodes.Add "Defeitos", tvwChild, "trvib", "Vibracall", 4, 3
TreeView1.Nodes.Add "Defeitos", tvwChild, "traud", "Audio", 4, 3

'TreeView1.Nodes.Add "trdis", tvwChild, "C1", "Sem Caracter", 5, 5
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)

If Node.Parent Is Nothing Then
Exit Sub
End If

'links de defeitos
On Error Resume Next
'opcao nao liga
If Node.Key = "trnliga" Then
'carrega imagens
imgtrnliga_c115.Picture = LoadPicture("//Betaserver/LAB/Debug/Okashira/Doc/110.jpg")
'MHFlexgrid
Label1.Visible = True
MSFlexGrid1.Visible = True
Call encheGridC110("//Betaserver/LAB/Debug/Okashira/Doc/falhas.mdb", "Select * from C110 WHERE DEF ='NLIGA'")
End If

alguem conhece um mdac que atendo o win2000 SP4 Jet 4.0 ?

Obrigado!