Kode Untuk Membuat DSN Otomatis

Code ini berfungsi untuk membuat setingan otomatis ketika program di jalankan,,sehingga kita tidak perlu lagi membuat DSN melalui control Panel:

1. Pertama Buka Project Baru.
2. Buat Sebuah Modul dengan nama modul.bas dan form dengan nama frmMenu, isikan code berikut pada modul :

Function RegString(HiveAndKey As String, Value As String)
Dim newbie As Variant
Set newbie = CreateObject("Wscript.Shell")
newbie.regwrite HiveAndKey, Value
End Function

Private Sub auto_dsn()
On Error Resume Next
RegString "HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\namaDSN\Database", "namaDB"
RegString "HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\namaDSN\Driver", "C:\WINDOWS\system32\sqlncli.dll"
RegString "HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\namaDSN\LastUser", ""
RegString "HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\namaDSN\Server", "namaUserLoginDatabase/IPAddress"
RegString "HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\namaDSN\Trusted_Connection", "Yes"
RegString "HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\ODBC Data Sources\namaDSN", "SQL Native Client"
End Sub
Sub Main()
Call auto_dsn
frmMenu.Show
End Sub

jadi ketika program di running,,langsung terciipta dsn yg mengkoneksikan ke database, kemudian memanggil form pertama..

*** ini code untuk koneksi DSN  ke database SQL Server 2005
selamat mencoba