使用oledbconnection 串連access和sql server 的代碼

<%@ Page Language="VB" Debug="true" ContentType="text/html" ResponseEncoding="gb2312" %>
<%@ import namespace="system.data.oledb"%>
<%@ import namespace="system.data"%>
<script language="vb" runat="server">
sub page_load()
dim dbconn as oledbconnection
dim dbconn2 as oledbconnection
dbconn=new oledbconnection("provider=thcj;server=localhost;initial catalog=thc;user id=sa;password=980123;")
DBConn2 = New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="&Server.MapPath("C9OnlineCampus.mdb;"))
end sub
</script>