<%@Import namespace=system.data%>
<%@Import namespace=System.Data.ADO%>
<script language="vb" runat="server">
sub page_load(Sender As Object, E As EventArgs)
    Dim cna as ADOconnection=New ADOconnection
    cna.connectionstring= _
    "Provider=Microsoft.Jet.ADO.4.0;" & _
    "Data Source=E:\myweb\asp-study\myweb1.mdb;" & _
    "User ID=admin"
    
    cna.open
end sub
</script>