哪位有ADO的实例

Question

哪位有ADO的实例,能给小弟一份吗？[email protected]

Answer 1

Private Sub Form_Load()
Set db = New ADODB.Connection
  db.CursorLocation = adUseClient
  db.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=newdb;uid=shenghuo;pwd=shenghuo"  Set rs = New ADODB.Recordset
  strsql = "select * from table"
  rs.Open strsql, db, adOpenDymanic, adLockBatchOptimistic
  set datagrid1.datasource=rs      '将结果集显示在DATAGRID表中
End Sub

Answer 2

我要一个比如用ADO编写的通讯录呀关于数据库方面的实例。