Dim connStr As String
 
connStr = "Provider=SQLOLEDB;Data Source=ITCK-NB-015\SQL2005;Initial" & _
  "Catalog=TEST_ASPNET;User ID=sa;Max Pool Size=500;Integrated Security=false"
 
Dim conn As New OleDbConnection(connStr)
conn.Open()