öncelikle

Imports System.Data.SqlClient NameSpacesini ekle ve

Dim StrConn As New SqlConnection("Data Source=localhost;Initial Catalog=DataBaseAdı;User Id=Kullanıcıadı;Password=password;")

bağlantı tamam dır gerisi sana kalmış