Save file from Attachment Access

Private Sub SaveFile_Click()
' Khai bao bien
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim rsFiles As DAO.Recordset
Dim strSQL As String
' Bay loi
On Error GoTo ErrorHandler
 
 Set dbs = CurrentDb
 strSQL = "SELECT * FROM Table1"
 Set rst = dbs.OpenRecordset(strSQL, dbOpenDynaset)
 
  Dim path_folder As String 'duong dan luu file
  path_folder = "C:\"
 
 With rst
    .FindFirst "ID=1" ' bang ghi chua file
    ''Set Col
    
    'Đưa biến file (danh sách các file) được xem như là Recordset gồm cột :FileName,FileData,FileType
     Set rsFiles = rst.Fields("DinhKem").Value
         
     Do Until rsFiles.EOF
        Dim path_file As String
        path_file = rsFiles.Fields("FileName").Value       
        rsFiles.Fields("FileData").SaveToFile path_folder + path_file
        ' nếu lưu lần 2 sẽ báo lỗi vì file đã có dưới máy tính rồi
       ' phải dùng hàm kiểm tra file có hay chưa mới lưu
        rsFiles.MoveNext
        
     Loop
    
 End With
 
 ' Clear var
 rst.Close
 dbs.Close
 Set rst = Nothing
 Set dbs = Nothing
 Exit Sub
 ''''''''''''''''''''''''''''''''
ErrorHandler:
   MsgBox "Error #: " & Err.Number & vbCrLf & vbCrLf & Err.Description
End Sub