一个ADO的小问题！在线等待！

Question

dim objcon as adodb.conniction
dim objrs as adodb.recordset
dim connictionstr as string
connictionstr="provider= ;user id=;password=;"
set objcon =new adodb.conniction
set objrs =new adodb.recordset
if objcon.state=adstateopen then objcon.close
objcon.open connictionstr'设置连接字符串
objrs.activeconniction
fi objrs.state=adsateopen then objrs.close
objrs.open "select * from " 'sql语句
 Set DateGrid.DataSouer=objrs

Answer 1

Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strsql As StringPrivate Sub Command1_Click()
  Set DataGrid1.DataSource = rs
End SubPrivate Sub Form_Load()
  Set cnn = New ADODB.Connection
  cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Temp\集邮助手\邮票.mdb;Persist Security Info=False"
  strsql = "select * from 邮票基本信息表"
  Set rs = New ADODB.Recordset
  rs.CursorLocation = adUseClient
  rs.Open strsql, cnn
End Sub