回覆

 '=============================
 'Access 2010使用的資料庫定義檔
 '============================= 
 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:mydatabase.mdb;User Id=admin;
'Password=;

set cn=server.createobject("adodb.connection")
cn.open "provider=microsoft.jet.oledb.4.0;data source=" & server.mappath ("cc.mdb")
set rs=server.createobject("adodb.recordset")
'strTest = "This is an apple!"
'response.write Replace(strTest, "apple", "orange")
sql = "select a.* from Users a where a.User_Id='" & "terry" & "' and a.PassWord1='" & "pwd123" & "'"
'sql = "select a.* from Users a"

'SQL = "select a.* from Users a where a.login='" & _
'"Admin" & "' and a.PassWord='" & "pwd123" & "'"
' pwd123