Kode program berikut untuk menghubungkan antara database SQL Server dengan program visualmu (VB) secara standalone. Letakkan program ini dibagian modul utama, lalu simpan sesuai dengan keinginanmu sendiri, misal: MdlUtama.bas.
Sesuaikan dengan nama server dan nama database yang kamu butuhkan pada bagian kode yang aku tebalin yach,, pasti programmu akan langsung bisa jalan.


Option Explicit
Public KonekDb As ADODB.Connection
Public StrKoneksi As String

Sub Bukadatabase()
Set KonekDb = New ADODB.Connection

KonekDb.CursorLocation = adUseClient
StrKoneksi = "Driver={SQL Server}; " _
& " SERVER=BISMILLAH; DATABASE=PuskesmasDb"

If KonekDb.State = adStateOpen Then
KonekDb.Close
Set KonekDb = New ADODB.Connection
KonekDb.Open StrKoneksi
Else
KonekDb.Open StrKoneksi
End If
End Sub