Can anyone help me for the error.
Below is my code
Run-time error '-2147467259 (80004005)': [Microsoft][ODBC Microsoft Access Driver] Could not find file '(unknown)'.
Code:
Private Sub cmdApply_Click()

    Text3.Text = "INDIA"
    Map1.Layers.Clear
    ListView1.ListItems.Clear
    ListView1.ColumnHeaders.Clear
      
    Set c = New Connection
    Set cm = New Command
    Set r = New Recordset
'On Error Resume Next

    strconn = "Driver={Microsoft Access Driver (*.mdb)};" & _
     "Dbq =" & App.path & "\Vul_all_param_Project.mdb;" & _
     "Uid=Admin; Pwd="
'Vul_all_param_Project.mdb
    c.Open strconn

    r.LockType = adLockBatchOptimistic
    r.CursorLocation = adUseClient
    r.CursorType = adOpenDynamic

    dc.Database = App.path
    If Combo1.Text = "" Then
        MsgBox "SELECT THE APPROPRIATE PARAMETER FOR ADAPTIVE_CAPACITY FROM ATTRIBUTES COMBO BOX", vbDefaultButton1, "SELECT"
    End If
    
    If Combo1.Text = "Electricity" Then
       Combo1.Text = "Electricit"
    
         
        If Not dc Is Nothing Then
           Set gds1 = dc.FindGeoDataset("Vul_all_param_Project")
           Set gds2 = dc.FindGeoDataset("India_state")
           'Set gds3 = dc.FindGeoDataset("India_state")
        'End If
 
        If Not lyr1 Is Nothing Then
         If Not lyr2 Is Nothing Then
         
           
           Set lyr1 = New MapObjects2.MapLayer
           Set lyr1.GeoDataset = gds1
           Set lyr2 = New MapObjects2.MapLayer
           Set lyr2.GeoDataset = gds2
       '    Set lyr3 = New MapObjects2.MapLayer
        '   Set lyr3.GeoDataset = gds3
           
     '    End If
      '  End If
   
        lyr2.Symbol.Color = moWhite
        lyr2.Symbol.OutlineColor = moBlack
        lyr2.Symbol.Size = 2
        'lyr2.Symbol.Style = moTransparent
        
        
        Set recs = lyr1.Records
    
        Call PopulateNewCBlegend(Combo1.Text)
        cmdApply.Enabled = True
        Call ApplyClassBreaks
        legend1.LoadLegend True
        Map1.Refresh
        ListView1.ColumnHeaders.Clear
        ListView1.ListItems.Clear
        
        
        Map1.Layers.Add lyr2
        Map1.Layers.Add lyr1
      '  Map1.Layers.Add lyr3
    
        legend1.setMapSource Map1
        legend1.LoadLegend True
        
        MsgBox "This parameter gives the Rural Electrification as a % of Number of Villages with electric supply in relation to total number of Villages", vbExclamation, "Electricity"
        
        Set rs = New Recordset
    
 '12345  Map1.Refresh
         ListView1.ColumnHeaders.Clear
         ListView1.ListItems.Clear
        'should display the tablular data
     
        Set colheader = ListView1.ColumnHeaders.Add()
         
         ListView1.ColumnHeaders.Add(1) = "ID"
         ListView1.ColumnHeaders.Add(2) = "Dist_ID"
         ListView1.ColumnHeaders.Add(3) = "COUNTRY"
         ListView1.ColumnHeaders.Add(4) = "STATE"
         ListView1.ColumnHeaders.Add(5) = "DISTRICT"
         ListView1.ColumnHeaders.Add(6) = "Electricity"
         
            
         'If Combo1.Text = "Electricity" Then
         sql = "select * from Vul_all_param_Project order by DIST_ID"
         rs.Open sql, c
             While rs.EOF = False
               Set l = ListView1.ListItems.Add(, , Trim(rs(0)) & "")
               l.SubItems(1) = Trim(rs(5) & "")
               l.SubItems(2) = Trim(rs(6) & "")
               l.SubItems(3) = Trim(rs(3) & "")
               l.SubItems(4) = Trim(rs(2) & "")
               l.SubItems(5) = Trim(rs(64) & "")
               
               rs.MoveNext
             Wend
             
        End If
        End If
        End If
ElseIf Combo1.Text = "Fertilizer" Then
       Combo1.Text = "tot_fert_k"

        If Not dc Is Nothing Then
            Set gds1 = dc.FindGeoDataset("Vul_all_param_Project")
             If Not gds1 Is Nothing Then
           Set gds2 = dc.FindGeoDataset("India_State")
        'End If
 
        If Not lyr1 Is Nothing Then
         If Not lyr2 Is Nothing Then
           Set lyr1 = New MapObjects2.MapLayer
           Set lyr1.GeoDataset = gds1
           Set lyr2 = New MapObjects2.MapLayer
           Set lyr2.GeoDataset = gds2
     '    End If
      '  End If
       
   
        lyr2.Symbol.Color = moWhite
        lyr2.Symbol.OutlineColor = moBlack
        lyr2.Symbol.Size = 2

        Set recs = lyr1.Records
    
        
        Call PopulateNewCBlegend(Combo1.Text)
        cmdApply.Enabled = True
        Call ApplyClassBreaks
        legend1.LoadLegend True
        Map1.Refresh
        ListView1.ColumnHeaders.Clear
        ListView1.ListItems.Clear
        
        Map1.Layers.Add lyr2
        Map1.Layers.Add lyr1
    
        legend1.setMapSource Map1
        legend1.LoadLegend True
        
        
        
        MsgBox "This parameter gives the Fertilizer Consumption of nutrients (N+P+K) per ha of gross sown area", vbInformation, "Fertilizer"

        Set rs = New Recordset
   
       ' Map1.Refresh
        ListView1.ColumnHeaders.Clear
        ListView1.ListItems.Clear
        'should display the tablular data
     
        Set colheader = ListView1.ColumnHeaders.Add()
         
         ListView1.ColumnHeaders.Add(1) = "ID"
         ListView1.ColumnHeaders.Add(2) = "Dist_ID"
         ListView1.ColumnHeaders.Add(3) = "COUNTRY"
         ListView1.ColumnHeaders.Add(4) = "STATE"
         ListView1.ColumnHeaders.Add(5) = "DISTRICT"
         ListView1.ColumnHeaders.Add(6) = "Fertilizer"
         
            
         sql = "select * from Vul_all_param_Project order by DIST_ID"
         rs.Open sql, c
             While rs.EOF = False
               Set l = ListView1.ListItems.Add(, , Trim(rs(0)) & "")
               l.SubItems(1) = Trim(rs(5) & "")
               l.SubItems(2) = Trim(rs(6) & "")
               l.SubItems(3) = Trim(rs(3) & "")
               l.SubItems(4) = Trim(rs(2) & "")
               l.SubItems(5) = Trim(rs(52) & "")
               
               rs.MoveNext
             Wend
             
      '      pTable.Database = strconn
    
        '    If Combo1.Text = "Fertilizer" Then
         '      pTable.Name = "Fertilizer"
         '   End If
            End If
        End If
    End If
End Sub