Password protected database & Word

Hi: Using VB6, Access2000, Word2000

I trying to do a mailmerge using VB6 & Word2000 with an Access2000
password protected database. I don't know how to provide the password
to the string.

Normally when accesing the db I connect as follows:

VB Code:

'adoConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
'" Data Source=\\BigDaddy\Datalib\MegaOne.mdb; Persist Security Info=False; Jet OLEDB:Database Password=DogDayAfternoon23x "

I tried the above code but got errors


The following is what I'm currently using, but it prompts me to
enter the password, which I do not want to happen once itgets into production.

VB Code:

' Set the mail merge data source as the MegaOne.mdb database.
objWord.MailMerge.OpenDataSource _
Name:="\\BigDaddy\Datalib\MegaOne.mdb", _
LinkToSource:=True, _
Connection:="TABLE Customers", _
SQLStatement:=" SELECT " & _
" CustAuthorizedFirstName, CustAuthorizedLastName," & _
" CustDepartment, CustCompanyName, " & _
" CustAddress1, CustAddress2, " & _
" CustCity, CustState, CustZipcode, " & _
" CustBalance " & _
" FROM " & _
" [Customers]" & _
" Where " & _
" CustBalance > 0 "

The second problem I'm having here is that the document is set with a font size of 12 but when prints, the first word of the merged fields are printed with a font size of 10 instead of the original document which as I stated is set for 12.

Can someone shed some light?

Thanks

Anyone out there, Need HELP with this.

Thanks

According to this page (which is an explanation of why things like this can be a bad idea!) there is a PasswordDocument parameter, which I think should be inserted like this:

VB Code:

...
Name:="\\BigDaddy\Datalib\MegaOne.mdb", _
PasswordDocument:="[i]YourPassword[/i]", _
LinkToSource:=True, _
...

Thanks for responding si_the_geek. Sorry for the late response but I was under the weather for a bit. Back at work now.

I tried your suggestionn and it still prompts me for the database password, appearently it a document password instead of the database password.

Any other thoughts???

And how about the changing of the font size problem?

Again thanks

Got this from the Microsoft TechNet site:

VB Code:

' Open database for exclusive access by using current password. To 
' get exclusive access, you must set the Options argument to True.
Set dbsDB = OpenDatabase(Name:=strDBPath, _
Options:=True, _
ReadOnly:=False, _
Connect:=strOpenPwd)

Looks like you would assign you parameters to the variables starting with 'str'

Hope that helps !

:)

http://www.microsoft.com/technet/pro...art4/ch18.mspx

Sorry, the above is the link where I got some info ......

Thanks for the information & the link ModusOperandi