Frammento di codice per il collegamento al db Sql Server

Dim connection As String = "Data Source=.\Istanza;Initial Catalog=Databas;User Id=Username;Password=Password;pooling=false;"
Dim cn As New SqlConnection(connection)
cn.Open()

Dim cm As New SqlCommand
cm.Connection = cn
Dim strSQL As String = "select * from TbContatti"
cm.CommandText = strSQL

Dim dt As New DataTable
Dim da As New SqlDataAdapter(cm)
da.Fill(dt)