Koneksi visual basic dengan SQL Server

Untuk mengkoneksikan aplikasi visual basic dengan SQL Server cukup mudah!pada project anda,tambahkan modul baru dan beri nama koneksi(Terserah anda sih!!). Kemudian Copypaste listing berikut:

Public mydata As New ADODB.Connection

Public Function bukadata() As Boolean
mydata.Provider = "sqloledb"
mydata.Open "SERVER=192.168.0.1;DATABASE=multilogistics;uid=;pwd="
'Ini untuk koneksi ke server di komputer lain. ipnya bisa anda ganti sesuia ip pada komputer server

mydata.Open "SERVER=(local);DATABASE=minimarket;uid=;pwd=" 'Ini untuk koneksi ke Server Local
'terserah anda mau pake yang mana
bukadata = True
End Function

Sub main()
bukadata
frmSplash.Show
End Sub

Selamat Mencoba!