Data source name not found error

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...

Data source name not found error