Setting a combo Rowsource from SQL server

Hello,
I am trying to set the rowsource of a combo box. I want to use a query from
the SQL Server.
I can do it if the tables are linked through ODBC, but I want to create a
DSNless connection (I think that's what it is called) so that the user does
not have to enter a password.

I get an error that says:
The record source 'SELECT * from tblProjects;' SPECIFIED ON THIS FORM OR
REPORT DOES NOT EXIST.

Thanks in advance...

here's the code I'm using.


Public Sub SetDropdownRowSource2()
Dim strSQL As String

'*************** OPEN CONNECTION TO SQL SERVER
Dim cnn As ADODB.Connection
Dim strConn As String
Set cnn = New ADODB.Connection
strConn = "Driver={SQL
Server};Server=10.33.0.33;Database=Pubs;Uid=sa;Pwd=*****;"
With cnn
.Open strConn
.CursorLocation = adUseClient
End With
'****************** END CONNECTION

strSQL = "SELECT * from tblProjects;"

Forms!frmMain.cmbSelectProject.RowSource = strSQL
End Sub



.

Relevant Pages
Loading