Dim conn As New ADODB.Connection Dim xsxx As New ADODB.Recordsetxsxx.CursorLocation = ADODB.CursorLocationEnum.adUseClient
conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("./") & "\app_data\kczb.mdb")xsxx.Open("select password from user where name='张三'"), conn, ADODB.CursorTypeEnum.adO...