Dim oOleDbConnection As OleDb.OleDbConnection
Dim sConnString As String = _
         "Provider=sqloledb;" & _ 
         "Data Source=mssql7.ixwebhosting.com;" & _
         "Initial Catalog=stedic1_cdscc;" & _
         "User Id=stedic1_cdscc;" & _
         "Password=stedica0" 
oOleDbConnection = New OleDb.OleDbConnection(sConnString)
oOleDbConnection.Open()