Access 2003 DAO Connections

Hi,

I'm using Access to create some reports that use tables linked to SQL database. I'm prompted for a SQL password every time I run a query or report and wanted to automatically assign the UID and Password so the user doesn't have to enter a password. I've played around with this code but I think I need DAO commands?

Can someone tell me how to change this ADO command into DAO command

Set cnAptify = New ADODB.Connection
With cnAptify
.ConnectionString = "DSN=DevAp;UID=sa;PWD=P123;"
.Open
End With


Thanks much.

http://www.vbforums.com/showthread.p...t=DAO+password

I use the next ADO code without problems

Code:

---

Dim MiConStr1 As String
    MiConStr1 = "Provider=SQLOLEDB.1;" & _
                "UID=MyUserName;" & _
                "PWD=MyPassword;" & _
                "Persist Security Info=False;" & _
                "Initial Catalog=DBName;" & _
                "Data Source=ServerName"

    Set MiSQL1 = New ADODB.Connection
        MiSQL1.CursorLocation = adUseClient
        MiSQL1.ConnectionString = MiConStr1
        MiSQL1.Open

---

Quote:

---

Originally Posted by jggtz

I use the next ADO code without problems

Code:

---

Dim MiConStr1 As String
    MiConStr1 = "Provider=SQLOLEDB.1;" & _
                "UID=MyUserName;" & _
                "PWD=MyPassword;" & _
                "Persist Security Info=False;" & _
                "Initial Catalog=DBName;" & _
                "Data Source=ServerName"

    Set MiSQL1 = New ADODB.Connection
        MiSQL1.CursorLocation = adUseClient
        MiSQL1.ConnectionString = MiConStr1
        MiSQL1.Open

---

---

The OP wants DAO. :)

Quote:

---

The OP wants DAO

---

Yes I know, but He wants DAO because he has problems with ADO
I think it's better to first try to resolve the problem using ADO instead of change to DAO