VB 串連SQL2000資料庫代碼

Private Sub Command1_Click()

'首先引用Microsoft  Activex  Data  Objects  2.x  Library
Dim objcon   As New ADODB.Connection
Dim objrs   As New ADODB.Recordset
Dim strConn As String

strConn = "Provider=SQLOLEDB.1;User ID=sa;password=密碼;Initial Catalog=資料庫名稱;Data Source=本機IP地址(192.168.1.136)"
objcon.Open strConn
'strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=hNXQF222;Initial Catalog=database;Data Source=192.168.1.136"

'objcon.Open "Provider=sqloledb.1;user  id=sa;password=hNXQF222;Initial  Catalog=Northwind;Data  Source="
objrs.Open "select  *  from  Orders", objcon, 3, 1
'在組件中添加DataGrid控制項
Set DataGrid1.DataSource = objrs
End Sub