DB Admin ?!?

Public Function CreateAccessDatabase( _
    ByVal DatabaseFullPath As String) As Boolean
        Dim bAns As Boolean
        Dim cat As New ADOX.Catalog()
        Try
              Dim sCreateString As String
              sCreateString = _
                "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
                 DatabaseFullPath
              cat.Create(sCreateString)
              bAns = True
        Catch Excep As System.Runtime.InteropServices.COMException
              bAns = False
        Finally
              cat = Nothing
        End Try
        Return bAns
    End Function