VB6 Network Error

[Wernerh]

Please could someone advise me as to why I am getting a error across a network on the following code? If I execute the code on a standalone machine there is no problem and it runs perfectly. When I try run it from another machine I get the followng error : (obviously the windows screen pops up "we have encountered an error and need to close") with this message : "Error signature modname:rpcrt4.dll" Please could someone assist?

Thanks Werner

Private Sub Command2_Click()
DeleteFile App.Path & "\data\Report\1.xls"
'first
 
Command2.Visible = False
If Not Len(Text9.Text) < 1 Then
                    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " + App.Path + "\data\adodb1.mdb"
                    Set DataGrid1.DataSource = Adodc1
                    SorSor = False
 
                    Adodc1.Recordset.Update
                    Text1.Enabled = 0: Text2.Enabled = 0: Text3.Enabled = 0
                    Text4.Enabled = 0: Text5.Enabled = 0: Text6.Enabled = 0
                    Text7.Enabled = 0
                    Toolbar1.Buttons.Item(1).Caption = "New"
                    Toolbar1.Buttons.Item(4).Enabled = True
 
                End If
 
 
    Dim cn As New ADODB.Connection
    Dim oSchema As ADODB.Recordset
    Dim rs As New ADODB.Recordset
    Dim intFldCnt As Integer
    Dim I As Integer
    Dim j As Integer
    Dim sngColWid As Single
 
 
    Screen.MousePointer = vbHourglass
    strDBName = App.Path & "\" & "\data\adodb1.mdb"
 
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBName & ";Persist Security Info=False"
    cn.Open (strDBName)
    Set oSchema = cn.OpenSchema(adSchemaTables)
 
    Set Excel = New Excel.Application
    Set eWorkBook = Excel.Workbooks.Add
 
 
    Do Until oSchema.EOF
        If InStr(oSchema!table_name, "MSys") = 0 Then
            Set eWorkSheet = eWorkBook.Worksheets.Add
            If InStr(oSchema!table_name, "/") <> 0 Then
                eWorkSheet.Name = Replace(oSchema!table_name, "/", "-")
            End If
 
            rs.Open "select * from [" & oSchema!table_name & "]", cn
            intFldCnt = rs.Fields.Count - 1
 
            For I = 1 To intFldCnt
                eWorkSheet.Cells(1, I) = rs.Fields(I).Name
                If TextWidth(rs.Fields(I).Name) > sngColWid Then
                    sngColWid = TextWidth(rs.Fields(I).Name)
                End If
            Next I
            eWorkSheet.Range("A1", "h1").Font.Bold = True
            eWorkSheet.Range("h1", "h1").Font.Underline = True
            eWorkSheet.Range("a1:e1500").HorizontalAlignment = "3"
            eWorkSheet.Range("g1:g1500").HorizontalAlignment = "3"
            eWorkSheet.Range("f1:f1500").HorizontalAlignment = "2"
            eWorkSheet.Cells(1, 1) = "Entry"
            eWorkSheet.Cells(1, 2) = "Project"
            eWorkSheet.Cells(1, 3) = "VAT"
            eWorkSheet.Cells(1, 4) = "Cost Code"
            eWorkSheet.Cells(1, 5) = "Date / Ref"
            eWorkSheet.Cells(1, 6) = "Description"
            eWorkSheet.Cells(1, 7) = "Amount"
            eWorkSheet.Cells(1, 8) = Label5.Caption
            eWorkSheet.Columns(1).ColumnWidth = "7"
            eWorkSheet.Columns(2).ColumnWidth = "10"
            eWorkSheet.Columns(3).ColumnWidth = "10"
            eWorkSheet.Columns(4).ColumnWidth = "10"
            eWorkSheet.Columns(5).ColumnWidth = "15"
            eWorkSheet.Columns(6).ColumnWidth = "50"
            eWorkSheet.Columns(7).ColumnWidth = "15"
            eWorkSheet.Columns(8).ColumnWidth = "12"
 
            j = 2
            Do Until rs.EOF
                For I = 1 To intFldCnt
                    eWorkSheet.Cells(j, I) = rs.Fields(I).Value
                Next I
                j = j + 1
                rs.MoveNext
            Loop
            rs.Close
            Debug.Print oSchema!table_name
        End If
        oSchema.MoveNext
    Loop
 
 
    eWorkBook.SaveAs App.Path & "\data\Report\1.xls"
    Screen.MousePointer = vbNormal
    Exit Sub
 
End Sub

[debasisdas]

Have you installed th eprogram or simply running the exe ?

Do you have data directory in the application path in all the systems ?

[Wernerh]

Have you installed th eprogram or simply running the exe ?

Do you have data directory in the application path in all the systems ?

Simply running the exe. Yes, the whole exe uses App.Path & "\" & " to identify paths. The rest of the application reads/writes back to the path wiithout problem, just this execution has a problem.

[Wernerh]

Simply running the exe. Yes, the whole exe uses App.Path & "\" & " to identify paths. The rest of the application reads/writes back to the path wiithout problem, just this execution has a problem.

The data directory is on 1 specific machine with the exe running on other machines. The other data is read/write back no problem.

[debasisdas]

The data directory is on 1 specific machine with the exe running on other machines. The other data is read/write back no problem.

If the directory is in only one system how can you specify app.path