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()

Import System.Data.OleDb
public class form1
dim kns as new OleDbConnection
dim da as new OleDbDataAdapter
dim dt as new datatable
Public Sub form1_load( ...... ) mybase.load
'ini utk access 2003 kebawah
kns.ConnectionString = "Provider = Microsoft.Jet.OleDb.4.0;data source=mydata.mdb;Jet Oledb:Database Password='passku'"
'Ni tuk Access 2007 kebawah
'kns.ConnectionString = "Provider = Microsoft.Ace.OleDb.12.0;data source=*.mdb/*accdb;Jet Oledb:Database Password='passku'"
da.SelectCommand=new oledbCommand("select * from tabel1",kns)
da.fill(dt)
datagridview1.datasource=dt
end sub
end class