Filename not correct

Question

hi,
I'm using a code where I'm trying to get the filenames of previous databases from a folder named 'BE' into a combo box as list.
The files name are :
Data1213.accdb
Data1314.accdb
and so on. But I'm getting only "Data" not "Data1213.accdb".
Code:
====================
Dim fso As New FileSystemObject, sFile As Scripting.File
Dim sourceFolder As Scripting.Folder
Set sourceFolder = fso.GetFolder(CurrentProject.Path & "\BE")
For Each sFile In sourceFolder.Files
    If right(sFile, 6) = ".accdb" And DCount("*", "tblDbase", "fileName = '" & sFile & "'") = 0 Then
    DoCmd.SetWarnings False
    CurrentDb.Execute "Insert Into tblDbase(filename) Select '" & sFile & "'"
End If
Next
   DoCmd.SetWarnings True
====================
Note: The same code was working in Access 2003 but not in Access 2013. I don't understand. Please guide....
Thanks & Regards, Anuj Mehrotra

Answer 1

Why insert values into a table rather than directly into the combo box's list? e.g. in the form's Open event procedure:
    Dim ctrl As Control
    Dim strFileName As String
    Set ctrl = Me.YourComboBoxName
    strFileName = Dir(CurrentProject.Path & "\BE\*.accdb")
    With ctrl
        .RowSourceType = "Value List"
        .AllowValueListEdits = False
        Do Until Len(strFileName) = 0
            .AddItem strFileName
            strFileName = Dir()
        Loop
    End With
Ken Sheridan, Stafford, England