Article ID: 181489
Article Last Modified on 3/14/2005
"[Order]"
Private Sub Command1_Click()
Dim cn As ADODB.Connection, rs As ADODB.Recordset
Set cn = New ADODB.Connection
cn.Open "DSN=NWIND"
Set rs = New ADODB.Recordset
rs.Open "Order", cn, adOpenKeyset, adLockOptimistic, adCmdTable
rs.Close
cn.Close
End Sub
rs.Open "[Order]", cn, adOpenKeyset, adLockOptimistic, adCmdTable
Keywords: kbdatabase kbjet kbprb kbmdacnosweep KB181489