How to connect to MS-SQL using VB.Net

Import System.Data.SqlClient

Dim sConnection As String
sConnection = "Data Source=servername;User ID=sqlusername;Password=sqlpassword;Initial Catalog=CD;Persist Security Info=True;"

Dim SqlCon As New SqlConnection(sConnection)
SqlCon.Open