Koneksi Visual Basic ke SQL Server

Dim db As New
ADODB.Connection Dim rs As ADODB.Recordset Dim strCon
As String Dim namaUser As String Dim passUser As
String strCon = "Provider=SQLOLEDB.1;Persist Security
Info=False;User ID=sa;Initial Catalog=Northwind;Data
Source=riyulaptop" namaUser = "sa"
passUser = "as" db.Open strCon,
namaUser, passUser perintah diatas merupakan perintah untuk koneksi
ke sql server