Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
    Dim DBConn as OleDbConnection
    Dim DBInsert As New OleDbCommand
    Dim DBCommand As OleDbDataAdapter
    Dim DSPageData as New DataSet
    Dim CurrentQuantity as Integer
    Dim CurrentPrice as Single
    Dim CurrentShipping as Single
    Dim CurrentProductName as String
    DBConn = New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;" _
        & "DATA SOURCE=" & Server.MapPath("./base.mdb;"))
		
		DBInsert.Connection = DBConn
		DBInsert.Connection.Open
    If Len(Session("CustomerID")) =  0  Then    
        DBInsert.CommandText = "Insert Into Customers " _
            & "(Status, DateEntered) values ('Shopping', '" _
            & Now() & "')"
		DBInsert.ExecuteNonQuery()