Membuat koneksi ke SQL Server 2000-2008 VB 6

Pada dasarnya setiap perintah untuk memanipulasi database baik tampil, tambah atau update pasti membutuhkan operasi koneksi, maka dari itu agar tidak perlu buat script koneksi secara berulang maka script koneksi perlu dibuat di dalam file module. Dan jika diperlukan tinggal panggil pake perintah "Call <nama prosedur>"
Pertama
Buka project baru, pilih yang Enterprise.
Klik Menu Project, klik Add Module, klik OK
Masukkan kode berikut di modul tersebut, kemudian Simpan,..
---
Option Explicit
Public oConn As ADODB.Connection
Public recset As ADODB.Recordset

Public Sub opendb()
  Set oConn = New ADODB.Connection
  Set recset = New ADODB.Recordset
  oConn.CursorLocation = adUseClient
  oConn.Open "Provider=SQLOLEDB.1;Password=b217an;User ID=sa;Initial Catalog=SISTEMHRD;Data     Source=local"
End Sub
---

Kedua
Tinggal panggil prosedur tsb di form dengan perintah Call, contoh jika diletakkan pada saat form dipanggil/load:
Private Sub Form1_Load()
 Call opendb
 Set recset = New ADODB.recordset

 recset.Open ("select * from data_pegawai"), oConn
 DataGrid1.Data Source = recset

 '----agar hemat resource dan memori maka diclose lagi
 recset.Close
 Set recset = Nothing
 oConn.Close
End Sub