Koneksi SQL SERVER di VB .NET

Cara buat koneksi SQL SERVER di VB .NET:
1. Library yg dibutuhkan --> System.Data.SqlClient
Klo lum tau caranya sebelum Module/Class ketik Imports System.Data.SqlClient

2. Di dalam Module/Class siapkan variabel2nya
Langsung aja ketik :
Public con As SqlConnection
Public strkonek As String

3. Untuk koneksinya bisa diletakkan di dalam function/subroutine.
Caranya.... LAngsung aja ketik :
Public Sub konek()
Dim nama As String
nama = My.Computer.Name
Try
strkonek = "Data Source=" & nama & ";Initial Catalog=taspen;Integrated Security=True"
con = New SqlConnection(strkonek)
If con.State = ConnectionState.Closed Then con.Open()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub


Penjelasannya :
a. nama = My.Computer.Name --> mengambil nama dari komputer host/server sql untuk digunakan dalam Data Source dari strkonek,dg menggunakan cara tadi maka setiap kali pindah komputer tidak perlu merubah data sourcenya.
b. Data Source=" & nama & "; --> server dari database sql servernya.
c. Initial Catalog=taspen; --> nama databasenya, dalam contoh ini namanya taspen.
d. con = New SqlConnection(strkonek) --> menyimpan koneksi ke variabel con.
e. con.Open() --> membuka koneksi ke database.

4. Penggunaanya:
a. jika tadi pembuatan koneksinya menggunakan modul langsung aja panggil fungsinya. seperti :
Call konek()

b. jika menggunakan class jangan lupa ditambahkan nama kelasnya. Contohnya :
Call clsBahan.konek()

c. jika koneksinya dibuat pada class yang sama, tinggal memanggil nama fungsinya saja :
Call konek()