เขียน code asp.net รันแล้วไปลบ view และ create view ใหม่ใน MSACCESS2003

	Sub Sample1()

		Dim objConn As System.Data.OleDb.OleDbConnection
		Dim objCmd As System.Data.OleDb.OleDbCommand
		Dim strConnString,strSQL As String

		strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& _
		Server.MapPath("database/mydatabase.mdb")&";Jet OLEDB:Database Password=;"
		objConn = New System.Data.OleDb.OleDbConnection(strConnString)
		objConn.Open()
		
		strSQL = "INSERT INTO customer (CustomerID,Name,Email,CountryCode,Budget,Used) " & _
		"VALUES ('C005','Weerachai Nukitram','[email protected]','TH','2000000','1000000')"

        objCmd = New System.Data.OleDb.OleDbCommand()
        With objCmd
            .Connection = objConn
            .CommandType = CommandType.Text
            .CommandText = strSQL
        End With
        objCmd.ExecuteNonQuery()
		
		lblText.Text = lblText.Text & "- Record Inserted"

		objCmd = Nothing
		objConn.Close()
		objConn = Nothing

	End Sub