Set rs = New ADODB.Recordset
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\mdb\data.mdb;Persist Security Info=False"
cn.CursorLocation = adUseClient