Private Sub cmdImportMetadata_Click()

Dim sFile As FileDialog ' Windows File browser
Dim Selection As String

' Set variable

' For a file picker
Set sFile = Application.FileDialog(msoFileDialogFilePicker)

' For a folder picker
'Set sFile = Application.FileDialog(msoFileDialogFolderPicker)

' Open and check for CANCEL
With sFile
    .AllowMultiSelect = False
'    .Filters.Add "Excel Files", "*.xls; *.xlsx; *.csv; *.txt;", 1
    If .Show <> -1 Then
      Exit Sub
    End If
End With

' Store full path
Selection = sFile.SelectedItems(1)

'Import selected file to table
DoCmd.TransferSpreadsheet acImport, 10, "tblMetadata", Selection, True, ""

' Release variable
Set sFile = Nothing

Exit_BrowseSource:
    'Refresh
    Exit Sub

Err_BrowseSource:
    MsgBox "Error in Browse: " & Err.Description
    Resume Exit_BrowseSource

End Sub

Public Function AutoIncrement()
    Dim sTable As String
    Dim rs As DAO.Recordset
    Dim NextNum As Long
    Dim iCounter As Integer

    iCounter = 0
    NextNum = 0
    sTable = "tblANumAssets"
  
    Set rs = CurrentDb.OpenRecordset(sTable, dbOpenDynaset, dbDenyWrite)
    
    If rs.RecordCount = 0 Then
        'no current records... start at 1
        NextNum = 1
                
        'update the ANnum Table
        With rs
          rs.AddNew
            rs(0) = NextNum
          .Update
        End With
        
    Else 'there's an existing record
      
        'current record availble, increment by 4
        rs.MoveFirst
        NextNum = rs(0) + 4
        
        'update the ANnum Table
        With rs
          .Edit
            rs(0) = NextNum
          .Update
        End With

    End If
      
    'close rs
    rs.Close
    Set rs = Nothing
    
End Function

Public Function AutoIncrement()
    Dim sTable As String
    Dim dTable As String
    Dim rs1 As DAO.Recordset
    Dim rs2 As DAO.Recordset2
    Dim NextNum As Long

    NextNum = 0
    sTable = "tblANumAssets"
    dTable = "tblMetadata"
  
    Set rs1 = CurrentDb.OpenRecordset(sTable, dbOpenDynaset, dbDenyWrite)
    Set rs2 = CurrentDb.OpenRecordset(dTable, dbOpenDynaset, dbDenyWrite)
    
    With rs2
      
        Do While Not .EOF
        'INSERT IF STATEMENT HERE TO CHECK FOR NULL fldNum FIELDS IN tblMetadata
        'If IsNull [fldNum] then
        
            If rs1.RecordCount = 0 Then
                'no current records... start at 1
                NextNum = 1
                        
                'update the tblANumAssets Table
                With rs1
                  rs.AddNew
                    rs(0) = NextNum
                  .Update
                End With
                
            Else 'there's an existing record
              
                'current record availble, increment by 4
                rs1.MoveFirst
                NextNum = rs1(0) + 4
                
                'update the tblANumAssets Table
                With rs1
                  .Edit
                    rs1(0) = NextNum
                  .Update
                End With
            End If
        
        'UPDATE fldNum FIELD IN tblMetadata WITH THE NextNum VALUE
        '[fldNum] = NextNum
        
        .MoveNext
      Loop

      .Close
     End If
                 End With
        

rs1.Close
Set rs1 = Nothing
    
rs2.Close
Set rs2 = Nothing
    
End Function