ASP.NET - ExecuteScalar()

Command.ExecuteScalar()

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

		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 = "SELECT MAX(Used) FROM customer"

        objCmd = New System.Data.OleDb.OleDbCommand()
        With objCmd
            .Connection = objConn
            .CommandType = CommandType.Text
            .CommandText = strSQL
        End With

        myScalar = objCmd.ExecuteScalar
					
		objCmd = Nothing
		objConn.Close()
		objConn.Close()
		objConn = Nothing