高手请帮忙解答ACCESS选择题啊！万分感谢啊！！

Public Sub LoadData()
'定义数据库路径
Db="Data/data.mdb"
Connstr="Provider=Microsoft.Jet.Oledb.4.0;Data Source="&Server.MapPath(db)
End Sub
‘打开数据库函数
Public Sub Connect()
Set Conn=Server.CreateObject("Adodb.Connection")
Conn.Open Connstr
End Sub

Public Function Execute(Sql)
Set Rs=Server.CreateObject("Adodb.Recordset")
’判断数据库是否打开
If Isobject(Conn)=false then
‘打开数据库
Connect()
Rs.Open Sql,conn,1,3
Else
'response.write sql
' response.Flush()
'response.End()
Rs.Open Sql,conn,1,3
End If
Set Execute=Rs
End Function
’关闭数据库
Public Sub Disconnect()
Conn.Close
Set Conn=Nothing
End Sub

1、D
2、D
3、C
4、B
5、B