Create Folder Through Visual basic

Private Sub CreateFolders()
Dim rsData As New ADODB.Recordset
If fsys.FolderExists("" & App.Path & "\HTML") = False Then
fsys.CreateFolder("" & App.Path & "\HTML")
end if
MsgBox "Done"
End Sub

Check File :- It's is Exists or Not

Public Function CheckFile(FlNm As String) As Boolean
Dim fsys As New Scripting.FileSystemObject
If fsys.FileExists(App.Path + "\" + FlNm) = False Then
CheckFile = True
Else
CheckFile = False
End If
End Function
Pass the file name in function and it return you True & False

Connect Access Databse Through ADODB

Public cnAccount As New adodb.Connection
Public Sub OpenCn()
Set cnAccount = New adodb.Connection
cnAccount.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\Data.mdb;Persist
Security Info=False"
End Sub
Write this function in module and Call MDI Form Load