Dim cn As ADODB.Connection
Dim rs As ADODB.RecordsetPrivate Sub Form_Load()
cn.Open connectiongsting
rs.Open sql, cn, adOpenKeyset, adLockReadOnly
Set datagrid.DataSource = rs
End Sub
Dim rs As ADODB.RecordsetPrivate Sub Form_Load()
cn.Open connectiongsting
rs.Open sql, cn, adOpenKeyset, adLockReadOnly
Set datagrid.DataSource = rs
End Sub
Dim rs As New ADODB.RecordsetPrivate Sub Form_Load()
cn.Open connectiongsting
sql="select * from slfc where nua='3'"
rs.Open sql, cn, adOpenKeyset, adLockReadOnly
Set datagrid1.DataSource = rs
datagrid1.refresh
End Sub