Try this

CON.Open "PROVIDER=sqloledb;DATA SOURCE=ip;DATABASE=databasenamel;USER ID=username;password=password"

Bala

Hi,

This is my code

Response.Expires = 0

Dim m_strProcName

Dim m_strConnectionString

Dim rs

m_strConnectionString= "Provider=IBMDA400.400COPY1;Data Source=ASC1F;Persist Security Info=True;User Id=dbk;Password=abc123x;Default...