🚀 go-pugleaf

Please don't bother 29 newsgroups with one question....certainly if they
haven't got anything to do with it...

Your Set instruction for the database opbject should be branched:
If IsMissing(DbPassword) Then (what you already have) Else (supply the pwd as
stated in the MS Help files examples on the Database object).

Waldo Smets
SoftwareSuite�
Heverlee- Leuven


The_firm wrote:

> Problems with the dbpassword..... what if I have a password how do I
> connect?
>
> Public Function AddTable(DbName As String, DbPath As String, TableName As
> String, Optional DbPassword As String)
>
> If FileExists(DbPath & "\" & DbName & ".mdb") = True Then
>     On Error GoTo ErrorHandler
>
>         Dim MyDatabase As Database
>         Dim MyTableDef As TableDef, MyField As Field
>
>             Set MyDatabase = Workspaces(0).OpenDatabase(DbPath & "\" &
> DbName & ".MDB")
>             Set MyTableDef = MyDatabase.CreateTableDef(TableName)
>
> Else
>
>         Call MsgBox("Database doesn't exists:" & Chr(13) & UCase(DbPath) &
> "\" & _
>         UCase(DbName) & ".MDB", vbCritical, "Dbase")
>
> End If
>
> ErrorHandler:
>
> MyDatabase.Close
> End Function