Data source name not found error

[Anbusds]

Hi All,
i recieved error on the following connection string in the combo box change event
code as follows,

Private Sub LotNo_Change()
Dim conn As New ADODB.Connection
Dim sConnString As String
 
 
'Create connection string
sConnString = conn.Provider = "SQLOLEDB; Data Source=SDSACCOUNT; Initial Catalog= SSPLCO; user ID=sa; Password=sa;"
 
'Open connection and execute
conn.Open sConnString
 
'Do your query
conn.Execute "Select ITEMNO FROM ICITEM;"
 
End Sub

Any Solution?
Thanks in advance...

[Stewart Ross]

You have a misformed connection string at line 7, where the provider is not part of the string (you appear to be mixing part of the connection object in with the connection string, which is not going to work at all.

Try

sConnString = "Provider = SQLOLEDB; Data Source=SDSACCOUNT; Initial Catalog= SSPLCO; user ID=sa; Password=sa;"

-Stewart