Dim oAppPath As String
        oAppPath = Application.StartupPath & "\Test.mdb"
 
 
 
        If System.IO.File.Exists(oAppPath) = True Then
            System.IO.File.Delete(oAppPath)
        End If
 
        Dim ocat As Catalog = New Catalog()
        Dim oConn As ADODB.Connection
        Dim sConn As String
 
        ocat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & _
          oAppPath & ";" & "Jet OLEDB:Engine Type=5;" & "Jet OLEDB:Database" & _
          "Password=TEST;")
 
 
        oConn = New ADODB.Connection
        sConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & oAppPath _
          & ";" & "Jet OLEDB:Database Password=TEST;"
        oConn.Open(sConn)
 
        oConn.Close()
        ocat = Nothing
        oConn = Nothing
        sConn = Nothing
 
 
    End Sub